Changeset 12102


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

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

Location:
branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

    r11442 r12102  
    10221022       DO jk=1,jpk 
    10231023         coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk) 
    1024        ENDDOF 
     1024       ENDDO 
    10251025#elif defined key_dynldf_c2d 
    10261026       coeff = exp(gauss) * coeff 
     
    10331033       DO jk=1,jpk 
    10341034         coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk) 
    1035        ENDDOF 
     1035       ENDDO 
    10361036#elif defined key_dynldf_c2d 
    10371037       coeff = exp(gauss) * coeff 
  • 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.