Changes between Initial Version and Version 1 of Ticket #740


Ignore:
Timestamp:
08/08/17 18:01:28 (8 years ago)
Author:
arango
Comment:

Yes, thank you! I wonder how my C-preprocessor accepted this one.

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #740

    • Property Resolution → Fixed
    • Property Status new → closed

  • Ticket #740 – Description

    initial v1  
    1 In ROMS/Utility/checkdefs.F at line 1614, #elseif should be #elif
     1In ROMS/Utility/checkdefs.F at line 1614, '''#elseif''' should be '''#elif''':
     2
     3
     4{{{
     5#if defined OXYGEN && defined BIO_FENNEL
     6# ifdef OCMIP_OXYGEN_SC
     7!
     8      IF (Master) WRITE (stdout,20) 'OCMIP_OXYGEN_SC',                  &
     9     &   'Schmidt number from Keeling et al. (1998).'
     10      is=LEN_TRIM(Coptions)+1
     11      Coptions(is:is+17)=' OCMIP_OXYGEN_SC,'
     12# else
     13!
     14      IF (Master) WRITE (stdout,20) '!OCMIP_OXYGEN_SC',                 &
     15     &   'Schmidt number from Wanninkhof (1992).'
     16      is=LEN_TRIM(Coptions)+1
     17      Coptions(is:is+18)=' !OCMIP_OXYGEN_SC,'
     18# endif
     19!
     20      IF (Master) WRITE (stdout,20) 'OXYGEN',                           &
     21     &   'Add oxygen dynamics.'
     22      is=LEN_TRIM(Coptions)+1
     23      Coptions(is:is+8)=' OXYGEN,'
     24#elif !defined SURFACE_DO_SATURATION && defined HYPOXIA_SRM
     25# ifdef OCMIP_OXYGEN_SC
     26!
     27      IF (Master) WRITE (stdout,20) 'OCMIP_OXYGEN_SC',                  &
     28     &   'Schmidt number from Keeling et al. (1998).'
     29      is=LEN_TRIM(Coptions)+1
     30      Coptions(is:is+17)=' OCMIP_OXYGEN_SC,'
     31# else
     32!
     33      IF (Master) WRITE (stdout,20) '!OCMIP_OXYGEN_SC',                 &
     34     &   'Schmidt number from Wanninkhof (1992).'
     35      is=LEN_TRIM(Coptions)+1
     36      Coptions(is:is+18)=' !OCMIP_OXYGEN_SC,'
     37# endif
     38#endif
     39}}}