Changeset 12102 for branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC

Timestamp:

2019-12-06T18:56:08+01:00 (4 years ago)

Author:

dford

Message:

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

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

@@ -203 +203 @@
                     (zalk(ji,jj) > 35.0E2 ).OR.(zalk(ji,jj) <= 0.0 ) .OR.     &
                     (zdic(ji,jj) > 35.0E2 ).OR.(zdic(ji,jj) <= 0.0 ) .OR.     &
-                    (f_kw660(ji,jj) > 1.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN
-                  IF(lwp) THEN 
+                    (f_kw660(ji,jj) > 2.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN
+                  !IF(lwp) THEN 
                       WRITE(numout,*) ' surface T = ',ztmp(ji,jj)
                       WRITE(numout,*) ' surface S = ',zsal(ji,jj)
@@ -219 +219 @@
                                        ' kt = ', kt 
                       WRITE(numout,*) 'MEDUSA - Air-Sea INPUT: unrealistic surface Carb. Chemistry'
-                  ENDIF     
+                      WRITE(numout,*) 'E R R O R'
+                  !ENDIF     
                   CALL ctl_stop( 'MEDUSA - Air-Sea INPUT: ',             &
                                  'unrealistic surface Carb. Chemistry -- INPUTS' )