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

Timestamp:

2009-07-24T08:48:42+02:00 (15 years ago)

Author:

ctlod

Message:

change TKE cpp key names, see ticket: #485

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/restart.F90

@@ -150 +150 @@
       !! ** Purpose :   Read files for restart (format fixed by jprstlib )
       !! 
-      !! ** Method  :   Read the previous fields on the NetCDF/binary file 
-      !!      the first record indicates previous characterics
-      !!      after control with the present run, we read :
-      !!      - prognostic variables on the second record
-      !!      - elliptic solver arrays 
-      !!      - barotropic stream function arrays ("key_dynspg_rl" defined)
-      !!        or free surface arrays 
-      !!      - tke arrays (lk_zdftke=T .OR. lk_zdftke2=T)
-      !!      for this last three records,  the previous characteristics 
-      !!      could be different with those used in the present run. 
+      !! ** Method  :   Read in restart.nc file fields which are necessary for restart
       !!----------------------------------------------------------------------
       REAL(wp) ::   zrdt, zrdttra1