Changeset 9344 for branches

Timestamp:

2018-02-22T14:20:25+01:00 (6 years ago)

Author:

jpalmier

Message:

JPALM -- tweak xCO2 check test -

Location:

branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC

Files:

• MEDUSA/air_sea.F90 (modified) (1 diff)
• trcrst.F90 (modified) (1 diff)

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

@@ -154 +154 @@
                IF (lk_oasis) THEN
                   !!! Jpalm test on atm xCO2
-                  IF ( (f_xco2a(ji,jj) > 1500.0 ).OR.(f_xco2a(ji,jj) < 100.0 ) ) THEN
+                  IF ( (f_xco2a(ji,jj) .GT. 10000.0 ).OR.(f_xco2a(ji,jj) .LE. 0.0 ) ) THEN
                     IF(lwp) THEN 
                        WRITE(numout,*) ' atm xCO2 = ',f_xco2a(ji,jj),          &

branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -378 +378 @@
             !!
             IF(lwp) WRITE(numout,*) ' CFC averaged properties absent - setting to zero ...'
-            qint_cfc(:,:,jn)  = 0.0   !! CHN
+            qint_cfc(:,:,jl)  = 0.0   !! CHN
          ENDIF
          !!