- Timestamp:
- 2010-09-17T14:35:46+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/IOM/restart.F90
r2082 r2104 4 4 !! Ocean restart : write the ocean restart file 5 5 !!====================================================================== 6 !! History : !99-11 (M. Imbard) Original code7 !! 8.5 !02-08 (G. Madec) F90: Free form8 !! 9.0 ! 05-11 (V. Garnier) Surface pressure gradient organization9 !! 9.0 ! 06-07 (S. Masson) use IOM for restart6 !! History : OPA ! 1999-11 (M. Imbard) Original code 7 !! NEMO 1.0 ! 2002-08 (G. Madec) F90: Free form 8 !! 2.0 ! 2006-07 (S. Masson) use IOM for restart 9 !! 3.3 ! 2010-10 (C. Ethe, G. Madec) TRC-TRA merge (T-S in 4D) 10 10 !!---------------------------------------------------------------------- 11 11 … … 26 26 USE zdfmxl ! mixed layer depth 27 27 USE trdmld_oce ! ocean active mixed layer tracers trends variables 28 #if defined key_zdfkpp 29 USE traswap 30 #endif 28 USE traswp ! swap from 4D T-S to 3D T & S and vice versa 29 31 30 IMPLICIT NONE 32 31 PRIVATE … … 36 35 PUBLIC rst_read ! routine called by opa module 37 36 38 LOGICAL, PUBLIC :: lrst_oce = .FALSE. 39 INTEGER, PUBLIC :: numror, numrow 37 LOGICAL, PUBLIC :: lrst_oce = .FALSE. !: logical to control the oce restart write 38 INTEGER, PUBLIC :: numror, numrow !: logical unit for cean restart (read and write) 40 39 41 40 !! * Substitutions 42 41 # include "vectopt_loop_substitute.h90" 43 42 !!---------------------------------------------------------------------- 44 !! OPA 9.0 , LOCEAN-IPSL (2006)43 !! NEMO/OPA 3.3 , LOCEAN-IPSL (2010) 45 44 !! $Id$ 46 45 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) … … 109 108 !! 110 109 !! ** Method : Write in numrow when kt == nitrst in NetCDF 111 !! file, save fields which are necessary for restart110 !! file, save fields which are necessary for restart 112 111 !!---------------------------------------------------------------------- 113 112 INTEGER, INTENT(in) :: kt ! ocean time-step … … 135 134 CALL iom_rstput( kt, nitrst, numrow, 'rhop' , rhop ) 136 135 #if defined key_zdfkpp 137 CALL iom_rstput( kt, nitrst, numrow, 'rhd' , rhd)136 CALL iom_rstput( kt, nitrst, numrow, 'rhd' , rhd ) 138 137 #endif 139 138
Note: See TracChangeset
for help on using the changeset viewer.