Changeset 576 for trunk/NEMO/OPA_SRC/TRD

Timestamp:

2006-11-14T09:04:54+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_080: CT : compilation error correction

Location:

trunk/NEMO/OPA_SRC/TRD

Files:

• trdmld.F90 (modified) (2 diffs)
• trdmld_rst.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRD/trdmld.F90

@@ -231 +231 @@
       !!
       INTEGER :: ji, jj, jk, jl, ik, it
-      LOGICAL :: lldebug = .FALSE.
+      LOGICAL :: lldebug = .TRUE.
       REAL(wp) :: zavt, zfn, zfn2
       REAL(wp) ,DIMENSION(jpi,jpj) ::     &
@@ -248 +248 @@
       !!----------------------------------------------------------------------
       
-      ! ======================================================================
-      ! 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
 
       ! ======================================================================

trunk/NEMO/OPA_SRC/TRD/trdmld_rst.F90

@@ -13 +13 @@
    USE daymod          ! calendar
    USE iom             ! I/O module
+   USE restart         ! only for lrst_oce
 
    IMPLICIT NONE
@@ -103 +104 @@
       ENDIF
       !
-      CALL iom_close( nummldw )     ! close the restart file (only at last time step)
+      IF( kt == nitrst ) THEN
+         CALL iom_close( nummldw )     ! close the restart file (only at last time step)
+         lrst_oce = .FALSE.
+      ENDIF
       ! 
       !