Changeset 12102

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.

Location:

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO

Files:

• OPA_SRC/STO/stopack.F90 (modified) (2 diffs)
• TOP_SRC/MEDUSA/air_sea.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

@@ -1022 +1022 @@
        DO jk=1,jpk
          coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk)
-       ENDDOF
+       ENDDO
 #elif defined key_dynldf_c2d
        coeff = exp(gauss) * coeff
@@ -1033 +1033 @@
        DO jk=1,jpk
          coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk)
-       ENDDOF
+       ENDDO
 #elif defined key_dynldf_c2d
        coeff = exp(gauss) * coeff

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' )