Ignore:
Timestamp:
2019-12-06T18:56:08+01:00 (14 months ago)
Author:
dford
Message:

Fix syntax error and relax diagnostic check. See Met Office utils ticket 195.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r10302 r12102  
    203203                    (zalk(ji,jj) > 35.0E2 ).OR.(zalk(ji,jj) <= 0.0 ) .OR.     & 
    204204                    (zdic(ji,jj) > 35.0E2 ).OR.(zdic(ji,jj) <= 0.0 ) .OR.     & 
    205                     (f_kw660(ji,jj) > 1.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN 
    206                   IF(lwp) THEN  
     205                    (f_kw660(ji,jj) > 2.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN 
     206                  !IF(lwp) THEN  
    207207                      WRITE(numout,*) ' surface T = ',ztmp(ji,jj) 
    208208                      WRITE(numout,*) ' surface S = ',zsal(ji,jj) 
     
    219219                                       ' kt = ', kt  
    220220                      WRITE(numout,*) 'MEDUSA - Air-Sea INPUT: unrealistic surface Carb. Chemistry' 
    221                   ENDIF      
     221                      WRITE(numout,*) 'E R R O R' 
     222                  !ENDIF      
    222223                  CALL ctl_stop( 'MEDUSA - Air-Sea INPUT: ',             & 
    223224                                 'unrealistic surface Carb. Chemistry -- INPUTS' ) 
Note: See TracChangeset for help on using the changeset viewer.