Changeset 9309 for branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

Timestamp:

2018-02-06T12:22:05+01:00 (6 years ago)

Author:

jpalmier

Message:

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

File:

• branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90 (modified) (1 diff)

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

@@ -329 +329 @@
       !!                     initially done in trcsms_medusa
       !!----------------------------------------------------------------------
-      !!     
-      IF(lwp) WRITE(numout,*) ' trc_ini_medusa: initialisating atm CO2 record'
-      CALL trc_ini_medusa_co2atm
-
+      !! 
+      IF( ( .NOT.lk_oasis ) .AND. ( .NOT.lk_pi_co2 ) ) THEN
+         IF(lwp) WRITE(numout,*) ' trc_ini_medusa: initialisating atm CO2 record'
+         CALL trc_ini_medusa_co2atm
+      ENDIF
 
    END SUBROUTINE trc_ini_medusa