Ignore:
Timestamp:
2018-02-22T14:20:25+01:00 (2 years ago)
Author:
jpalmier
Message:

JPALM — tweak xCO2 check test -

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r9332 r9344  
    154154               IF (lk_oasis) THEN 
    155155                  !!! Jpalm test on atm xCO2 
    156                   IF ( (f_xco2a(ji,jj) > 1500.0 ).OR.(f_xco2a(ji,jj) < 100.0 ) ) THEN 
     156                  IF ( (f_xco2a(ji,jj) .GT. 10000.0 ).OR.(f_xco2a(ji,jj) .LE. 0.0 ) ) THEN 
    157157                    IF(lwp) THEN  
    158158                       WRITE(numout,*) ' atm xCO2 = ',f_xco2a(ji,jj),          & 
Note: See TracChangeset for help on using the changeset viewer.