Changeset 10141 for branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_v3/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

Timestamp:

2018-09-19T17:14:46+02:00 (6 years ago)

Author:

dford

Message:

Change cpp key key_foam_medusa to a logical switch ln_foam_medusa.

File:

• branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_v3/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_v3/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

@@ -35 +35 @@
       USE bio_medusa_mod
       USE par_oce,           ONLY: jpi, jpj, jpk
-# if defined key_foam_medusa
       USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max
-# else
-      USE sms_medusa,        ONLY: jdms
-# endif
       USE trc,               ONLY: ln_diatrc, med_diag, nittrc000 
       USE in_out_manager,    ONLY: lwp, numout
@@ -200 +196 @@
 # endif      
       !!
-# if defined key_foam_medusa
       pgrow_avg(:,:) = 0.0
       ploss_avg(:,:) = 0.0
@@ -207 +202 @@
          mld_max(:,:) = 0.0
       ENDIF
-# endif
       !!
       !! allocate and initiate 2D diag