Changeset 9245 for branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_9163/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

Timestamp:

2018-01-16T16:57:50+01:00 (6 years ago)

Author:

jpalmier

Message:

JPALM -- GMED-371 -- corrections after Richard's review -

File:

• branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_9163/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 (modified) (6 diffs)

branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_9163/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

@@ -92 +92 @@
 # endif
       USE lib_mpp,           ONLY: ctl_stop
-      USE trcstat 
+      USE trcstat,           ONLY: trc_rst_dia_stat 
 
    !!* Substitution
@@ -157 +157 @@
                   !!! 
                   !!! Jpalm test on atm xCO2
-                  IF ( (f_xco2a(ji,jj) > 1500 ).OR.(f_xco2a(ji,jj) < 100 ) ) THEN
+                  IF ( (f_xco2a(ji,jj) > 1500.0 ).OR.(f_xco2a(ji,jj) < 100.0 ) ) THEN
                     IF(lwp) THEN 
                        WRITE(numout,*) ' atm xCO2 = ',f_xco2a(ji,jj),          &
                                        ' -- ji =', mig(ji),' jj = ', mjg(jj)
-                       CALL ctl_stop( 'MEDUSA - Air-Sea :', 'unrealistic atm xCO2 ' )
-                    ENDIF 
+                    ENDIF
+                    CALL ctl_stop( 'MEDUSA - Air-Sea :', 'unrealistic atm xCO2 ' )
                  ENDIF 
                ENDIF
@@ -207 +207 @@
                !! Jpalm -- 12-09-2017 -- add extra check after reccurent
                !!          carbonate failure in the coupled run.
-               !!          must be associated to air-sea flux or air xCO2...i
+               !!          must be associated to air-sea flux or air xCO2...
                !!          Check MOCSY inputs
                IF ( (zsal(ji,jj) > 75.0 ).OR.(zsal(ji,jj) < 0.0 ) .OR.        &
@@ -229 +229 @@
                                        ' kt = ', kt 
                       WRITE(numout,*) 'MEDUSA - Air-Sea INPUT: unrealistic surface Carb. Chemistry'
-                      CALL ctl_stop( 'MEDUSA - Air-Sea INPUT: ',             &
-                                     'unrealistic surface Carb. Chemistry -- INPUTS' )
                   ENDIF     
+                  CALL ctl_stop( 'MEDUSA - Air-Sea INPUT: ',             &
+                                 'unrealistic surface Carb. Chemistry -- INPUTS' )
                ENDIF     
                !!
@@ -259 +259 @@
                !! Jpalm -- 12-09-2017 -- add extra check after reccurent
                !!          carbonate failure in the coupled run.
-               !!          must be associated to air-sea flux or air xCO2...i
-               !!          Check MOCSY inputs
+               !!          must be associated to air-sea flux or air xCO2...
+               !!          Check MOCSY outputs
               IF ( (f_pco2w(ji,jj) > 1.E4 ).OR.(f_pco2w(ji,jj) < 0.0 ) .OR.     &
                    (f_fco2w(ji,jj) > 1.E4 ).OR.(f_fco2w(ji,jj) < 0.0 ) .OR.     &   
@@ -281 +281 @@
                                        ' kt = ', kt     
                      WRITE(numout,*) 'MEDUSA - Air-Sea OUTPUT: unrealistic surface Carb. Chemistry'
-                     CALL ctl_stop( 'MEDUSA - Air-Sea OUTPUT: ',            &
-                                    'unrealistic surface Carb. Chemistry -- OUTPUTS' )
                  ENDIF     
+                 CALL ctl_stop( 'MEDUSA - Air-Sea OUTPUT: ',            &
+                                'unrealistic surface Carb. Chemistry -- OUTPUTS' )
               ENDIF     
             ENDIF