Changeset 12381 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_sit/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

Timestamp:

2020-02-13T15:15:49+01:00 (5 years ago)

Author:

dcarneir

Message:

Updating GO6 branch with G06 version in the apps trunk

File:

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

branches/UKMO/dev_r5518_GO6_package_FOAMv14_sit/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' )