Changeset 9344


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

JPALM — tweak xCO2 check test -

Location:
branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC
Files:
2 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),          & 
  • branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r9262 r9344  
    378378            !! 
    379379            IF(lwp) WRITE(numout,*) ' CFC averaged properties absent - setting to zero ...' 
    380             qint_cfc(:,:,jn)  = 0.0   !! CHN 
     380            qint_cfc(:,:,jl)  = 0.0   !! CHN 
    381381         ENDIF 
    382382         !! 
Note: See TracChangeset for help on using the changeset viewer.