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

Timestamp:

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

Author:

opalod

Message:

nemo_v1_bugfix_080: CT : compilation error correction

File:

• trunk/NEMO/OPA_SRC/TRD/trdmld.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
 
       ! ======================================================================