Changeset 557 for trunk/NEMO/OPA_SRC/restart.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/restart.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/restart.F90

@@ -24 +24 @@
    USE in_out_manager  ! I/O manager
    USE iom             ! I/O module
-   USE trdmld_oce      ! ! ocean active mixed layer tracers trends variables
    USE ini1d           ! re-initialization of u-v mask for the 1D configuration
    USE zpshde          ! partial step: hor. derivative (zps_hde routine)
@@ -37 +36 @@
 
    LOGICAL, PUBLIC ::   lrst_oce                  !: logical to control the oce restart write 
-   INTEGER, PUBLIC ::   nitrst                    !: time step at which restart file should be written
    INTEGER, PUBLIC ::   numror, numrow, nummldw   !: logical unit for cean restart (read and write)
 
@@ -72 +70 @@
       
       IF    ( kt == nitrst-1 .AND. lrst_oce         ) THEN
-         CALL ctl_stop( 'rst_opn: we cannot create an ocean restart at every time step' )
+         CALL ctl_stop( 'rst_opn: we cannot create an ocean restart at every time step',    &
+            &           'if the run ahs more than one tie step!!!' )
          numrow = 0
       ELSEIF( kt == nitrst-1 .OR.  nitend == nit000 ) THEN   ! beware if model runs only one time step
@@ -86 +85 @@
          IF(lwp) WRITE(numout,*) '             open ocean restart.output NetCDF file: '//clname
          CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstlib )
-         IF( lk_trdmld )   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
          lrst_oce = .TRUE.
       ENDIF