Changeset 521 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2006-10-11T16:45:09+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_73 : CT : build Mixed Layer restart files using iom

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (3 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
 
    IMPLICIT NONE
@@ -32 +33 @@
    PUBLIC   rst_read   ! routine called by opa  module
 
-   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   !: logical unit for cean restart (read and write)
+   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)
 
    !! * Substitutions
@@ -82 +83 @@
          IF(lwp) WRITE(numout,*) '             open ocean restart.output NetCDF file: '//clname
          CALL iom_open( clname, numrow, ldwrt = .TRUE. )
+         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. )
+         ENDIF
          lrst_oce = .TRUE.
       ENDIF