Changeset 8141 for branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

Timestamp:

2017-06-05T16:40:32+02:00 (7 years ago)

Author:

dford

Message:

Initial implementation of surface chlorophyll relaxation for FABM-ERSEM.

File:

• branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90 (modified) (4 diffs)

branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

@@ -16 +16 @@
    USE in_out_manager      ! ocean dynamics and active tracers variables
    USE lib_mpp           ! distributed memory computing library
+   USE fldread
 
    IMPLICIT NONE
@@ -52 +53 @@
    INTEGER , PUBLIC ::   nn_zdmp_tr    ! = 0/1/2 flag for damping in the mixed layer
    CHARACTER(LEN=200) , PUBLIC :: cn_resto_tr    !File containing restoration coefficient
+   CHARACTER(LEN=200) , PUBLIC :: cn_dir_chldmp = './'    !: Directory containing chlorophyll file
+   INTEGER , PUBLIC ::    nn_chldmp = 0    !: = 0/1/2 flag for surface chlorophyll damping
+   REAL(wp), PUBLIC ::    rn_chldmp = 0.0  !: chlorophyll damping coefficient
+   TYPE(FLD_N), PUBLIC :: sn_chldmp        !: informations about the fields to be read
 
    !!----------------------------------------------------------------------
@@ -77 +82 @@
       NAMELIST/namtrc_zdf/ ln_trczdf_exp  , nn_trczdf_exp
       NAMELIST/namtrc_rad/ ln_trcrad
-      NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr
+      NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr, cn_dir_chldmp, nn_chldmp, &
+         &                 sn_chldmp  , rn_chldmp
       !!----------------------------------------------------------------------
 
@@ -179 +185 @@
          WRITE(numout,*) '      mixed layer damping option     nn_zdmp_tr = ', nn_zdmp_tr, '(zoom: forced to 0)'
          WRITE(numout,*) '      Restoration coeff file    cn_resto_tr = ', cn_resto_tr
+         WRITE(numout,*) '      Surface chlorophyll damping     nn_chldmp = ', nn_chldmp
+         WRITE(numout,*) '      Damping coefficient             rn_chldmp = ', rn_chldmp
+         WRITE(numout,*) '      Chlorophyll directory       cn_dir_chldmp = ', cn_dir_chldmp
       ENDIF
       !