Ignore:
Timestamp:
2018-02-06T12:22:05+01:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — make clearer in the code and output which atm xCO2 source is used

File:
1 edited

Legend:

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

    r9257 r9309  
    153153            IF (tmask(ji,jj,1) == 1) then 
    154154               IF (lk_oasis) THEN 
    155                   !! use 2D atm xCO2 from atm coupling 
    156                   f_xco2a(ji,jj) = PCO2a_in_cpl(ji,jj) 
    157                   !!!  
    158155                  !!! Jpalm test on atm xCO2 
    159156                  IF ( (f_xco2a(ji,jj) > 1500.0 ).OR.(f_xco2a(ji,jj) < 100.0 ) ) THEN 
     
    162159                                       ' -- ji =', mig(ji),' jj = ', mjg(jj) 
    163160                    ENDIF 
    164                     CALL ctl_stop( 'MEDUSA - Air-Sea :', 'unrealistic atm xCO2 ' ) 
     161                    CALL ctl_stop( 'MEDUSA - Air-Sea :', 'unrealistic coupled atm xCO2 ' ) 
    165162                 ENDIF  
    166163               ENDIF 
Note: See TracChangeset for help on using the changeset viewer.