Changeset 14276 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/trcnam.F90

Timestamp:

2021-01-07T23:09:56+01:00 (3 years ago)

Author:

aumont

Message:

numerous updates to PISCES, PISCES-QUOTA and the sediment module

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/trcnam.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/trcnam.F90

@@ -248 +248 @@
       !!---------------------------------------------------------------------
 #if defined key_trdmxl_trc  || defined key_trdtrc
-      INTEGER  ::   ios, ierr                 ! Local integer
+      INTEGER  ::   jn, ios, ierr                 ! Local integer
       !!
       NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, &
@@ -260 +260 @@
       !
       ALLOCATE( ln_trdtrc(jptra) ) 
+      ln_trdtrc(:) = .false.
       !
       REWIND( numnat_ref )              ! Namelist namtrc_trd in reference namelist : Passive tracer trends
@@ -267 +268 @@
       READ  ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 )
 906   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' )
-      IF(lwm) WRITE( numont, namtrc_trd )
+     IF(lwm) WRITE( numont, namtrc_trd )
 
       IF(lwp) THEN