Changeset 10048 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

Timestamp:

2018-08-09T12:06:49+02:00 (6 years ago)

Author:

jpalmier

Message:

OMIP PI DIC - debug ; add trends ; working version

File:

• branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

@@ -448 +448 @@
 #  if defined key_omip_dic         
          IF( med_diag%PI_CO2FLUX%dgsave ) THEN
-            ALLOCATE( f_pi_co2flux2d(1:jpi, 1:jpj) )
-            f_pi_co2flux2d(:,:)   = 0.0 !!
+            ALLOCATE( f_pi_co2flux_2d(1:jpi, 1:jpj) )
+            f_pi_co2flux_2d(:,:)   = 0.0 !!
          ENDIF
 #  endif
@@ -471 +471 @@
 #  if defined key_omip_dic         
          IF( med_diag%PI_TCO2%dgsave ) THEN
-            ALLOCATE( f_pi_TDIC2d(1:jpi, 1:jpj) )
-            f_pi_TDIC2d(:,:)      = 0.0 !!
+            ALLOCATE( f_pi_TDIC_2d(1:jpi, 1:jpj) )
+            f_pi_TDIC_2d(:,:)      = 0.0 !!
          ENDIF
 #  endif
@@ -751 +751 @@
             f_pi_co2starair_2d(:,:)      = 0.0 !!
          ENDIF
-         IF( med_diag%OCN_PI_DPCO2%dgsave ) THEN
+         IF( med_diag%PI_OCN_DPCO2%dgsave ) THEN
             ALLOCATE( f_pi_ocndpco2_2d(1:jpi, 1:jpj) )
             f_pi_ocndpco2_2d(:,:)      = 0.0 !!