Changeset 3329 for branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90

Timestamp:

2012-03-16T13:22:15+01:00 (12 years ago)

Author:

gm

Message:

Ediag branche: #927 add the missing trdpen initialisation in trdini

File:

• branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90 (modified) (1 diff)

branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90

@@ -142 +142 @@
       IF ( lk_vvl               )   CALL ctl_stop('trd_pen_init : PE trends not coded for variable volume')
       !
+      nkstp     = nit000 - 1
+      !
    END SUBROUTINE trd_pen_init