Changeset 557 for trunk/NEMO/OPA_SRC/TRD/trdmld.F90

Timestamp:

2006-10-27T17:15:13+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_069: SM+CT+CE: bugfix of mld restart + OFF line compatibiblity

File:

• trunk/NEMO/OPA_SRC/TRD/trdmld.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRD/trdmld.F90

@@ -37 +37 @@
    USE trdmld_rst      ! restart for diagnosing the ML trends
    USE prtctl          ! Print control
+   USE restart         ! for lrst_oce
 
    IMPLICIT NONE
@@ -49 +50 @@
    INTEGER ::   nidtrd, ndextrd1(jpi*jpj)
    INTEGER ::   ndimtrd1                        
-   INTEGER, SAVE ::  ionce, icount                   
+   INTEGER ::   ionce, icount                   
 
    !! * Substitutions
@@ -246 +247 @@
 #endif
       !!----------------------------------------------------------------------
+      
+      ! ======================================================================
+      ! 0. open restart trend when needed (at kt ==  nitrst-1)
+      ! ======================================================================
+      IF( kt == nitrst-1 ) THEN
+         clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld"
+         IF(lwp) WRITE(numout,*) '             open ocean restart_mld NetCDF file: '//clname
+         CALL iom_open( clname, nummldw, ldwrt = .TRUE., kiolib = jprstlib )
+      ENDIF
 
       ! ======================================================================
@@ -702 +712 @@
       ! ======================================================================
 
-      CALL trd_mld_rst_write( kt ) 
+      IF( lrst_oce )   CALL trd_mld_rst_write( kt ) 
 
    END SUBROUTINE trd_mld
-