Changeset 9923 for NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/TOP/trcnam.F90

Timestamp:

2018-07-11T10:24:17+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): step I.2: dev_r9838_ENHANCE04_MLF

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/TOP/trcnam.F90 (modified) (3 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/TOP/trcnam.F90

@@ -52 +52 @@
       !!---------------------------------------------------------------------
       !
-      IF( .NOT.l_offline )   CALL trc_nam_run     ! Parameters of the run                                  
+      IF( .NOT.l_offline )   CALL trc_nam_run   ! Parameters of the run                                  
       !               
-      CALL trc_nam_trc                            ! passive tracer informations
+      CALL trc_nam_trc                          ! passive tracer informations
       !                                        
       IF( ln_rsttr                     )   ln_trcdta = .FALSE.   ! restart : no need of clim data
@@ -61 +61 @@
       !
       !
-      IF(lwp) THEN                   ! control print
+      IF(lwp) THEN                              ! control print
          IF( ln_rsttr ) THEN
             WRITE(numout,*)
@@ -76 +76 @@
       ENDIF
       !
-      rdttrc = rdt * FLOAT( nn_dttrc )          ! passive tracer time-step
+      rn_Dt_trc = REAL( nn_dttrc ) * rn_Dt      ! passive tracer time-step
       ! 
       IF(lwp) THEN                              ! control print
         WRITE(numout,*) 
-        WRITE(numout,*) '   ==>>>   Passive Tracer  time step    rdttrc = nn_dttrc*rdt = ', rdttrc
+        WRITE(numout,*) '   ==>>>   Passive Tracer  time step    rn_Dt_trc = nn_dttrc*rn_Dt = ', rn_Dt_trc
       ENDIF
       !