- Timestamp:
- 2010-10-04T15:53:42+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/IOM/restart.F90
r2104 r2148 7 7 !! NEMO 1.0 ! 2002-08 (G. Madec) F90: Free form 8 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) 9 !! 3.3 ! 2010-04 (M. Leclair, G. Madec) modified LF-RA 10 !! - - ! 2010-10 (C. Ethe, G. Madec) TRC-TRA merge (T-S in 4D) 10 11 !!---------------------------------------------------------------------- 11 12 … … 26 27 USE zdfmxl ! mixed layer depth 27 28 USE trdmld_oce ! ocean active mixed layer tracers trends variables 29 USE domvvl ! variable volume 28 30 USE traswp ! swap from 4D T-S to 3D T & S and vice versa 29 31 … … 39 41 40 42 !! * Substitutions 43 # include "domzgr_substitute.h90" 41 44 # include "vectopt_loop_substitute.h90" 42 45 !!---------------------------------------------------------------------- … … 123 126 CALL iom_rstput( kt, nitrst, numrow, 'hdivb' , hdivb ) 124 127 CALL iom_rstput( kt, nitrst, numrow, 'sshb' , sshb ) 128 IF( lk_vvl ) & 129 CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 125 130 ! 126 131 CALL iom_rstput( kt, nitrst, numrow, 'un' , un ) ! now fields … … 154 159 !!---------------------------------------------------------------------- 155 160 REAL(wp) :: zrdt, zrdttra1 156 INTEGER :: j libalt = jprstlib161 INTEGER :: jk, jlibalt = jprstlib 157 162 LOGICAL :: llok 158 163 !!---------------------------------------------------------------------- … … 192 197 CALL iom_get( numror, jpdom_autoglo, 'hdivb', hdivb ) 193 198 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb ) 199 IF( lk_vvl ) & 200 CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 194 201 ! 195 202 CALL iom_get( numror, jpdom_autoglo, 'un' , un ) ! now fields … … 219 226 hdivb(:,:,:) = hdivn(:,:,:) 220 227 sshb (:,:) = sshn (:,:) 228 IF( lk_vvl ) THEN 229 DO jk = 1, jpk 230 fse3t_b(:,:,jk) = fse3t_n(:,:,jk) 231 ENDDO 232 ENDIF 221 233 ENDIF 222 234 !
Note: See TracChangeset
for help on using the changeset viewer.