Changeset 9310 for branches/NERC

Timestamp:

2018-02-06T12:35:27+01:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- minor typo corrections

Location:

branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA

Files:

• sms_medusa.F90 (modified) (1 diff)
• trcbio_medusa.F90 (modified) (1 diff)

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

@@ -296 +296 @@
 !!
 #if defined key_axy_pi_co2
-   LOGICAL , PUBLIC ::   lk_pi_co2 = .TRUE.  !: OASIS used
+   LOGICAL , PUBLIC ::   lk_pi_co2 = .TRUE.  !: PI xCO2 used
 #else
-   LOGICAL , PUBLIC ::   lk_pi_co2 = .FALSE. !: OASIS unused
+   LOGICAL , PUBLIC ::   lk_pi_co2 = .FALSE. !: PI xCO2 unused
 #endif
 

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

@@ -305 +305 @@
          IF ( ( kt == nittrc000 ) .AND. lwp )     &
              WRITE(numout,*) '** MEDUSA Atm xCO2 fixed to pre-industrial value **'
-         !! f_xco2a(:,:) = 284.725  !! CMIP5 pre-industrial pCO2
+         !! f_xco2a(:,:) = 284.725       !! CMIP5 pre-industrial pCO2
          f_xco2a(:,:) = 284.317          !! CMIP6 pre-industrial pCO2 
       ELSE