Changeset 5208 for branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
- Timestamp:
- 2015-04-13T15:08:59+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r4780 r5208 22 22 USE iom ! I/O module 23 23 USE eosbn2 ! equation of state (eos bn2 routine) 24 USE trdm ld_oce ! ocean active mixed layer tracers trends variables24 USE trdmxl_oce ! ocean active mixed layer tracers trends variables 25 25 USE divcur ! hor. divergence and curl (div & cur routines) 26 26 USE sbc_ice, ONLY : lk_lim3 … … 134 134 CALL iom_rstput( kt, nitrst, numrow, 'hdivb' , hdivb ) 135 135 CALL iom_rstput( kt, nitrst, numrow, 'sshb' , sshb ) 136 ! 136 137 IF( lk_lim3 ) CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 137 138 ! … … 148 149 #endif 149 150 IF( lk_lim3 ) THEN 150 CALL iom_rstput( kt, nitrst, numrow, 'iatte' , iatte ) !clem modif 151 CALL iom_rstput( kt, nitrst, numrow, 'oatte' , oatte ) !clem modif 151 CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev' , fraqsr_1lev ) !clem modif 152 152 ENDIF 153 153 IF( kt == nitrst ) THEN 154 154 CALL iom_close( numrow ) ! close the restart file (only at last time step) 155 IF( .NOT. lk_trdmld ) THEN 155 !!gm IF( .NOT. lk_trdmld ) lrst_oce = .FALSE. 156 !!gm not sure what to do here ===>>> ask to Sebastian 157 lrst_oce = .FALSE. 156 158 IF( ln_rst_list ) THEN 157 159 nrst_lst = nrst_lst + 1 … … 159 161 ENDIF 160 162 lrst_oce = .FALSE. 161 ENDIF162 163 ENDIF 163 164 ! 164 165 END SUBROUTINE rst_write 166 165 167 166 168 SUBROUTINE rst_read_open … … 176 178 LOGICAL :: llok 177 179 !!---------------------------------------------------------------------- 178 179 IF( numror .LE.0 ) THEN180 ! 181 IF( numror <= 0 ) THEN 180 182 IF(lwp) THEN ! Contol prints 181 183 WRITE(numout,*) … … 267 269 hdivb(:,:,:) = hdivn(:,:,:) 268 270 sshb (:,:) = sshn (:,:) 269 IF( lk_lim3 ) THEN 271 272 IF( lk_vvl ) THEN 270 273 DO jk = 1, jpk 271 274 fse3t_b(:,:,jk) = fse3t_n(:,:,jk) 272 275 END DO 273 276 ENDIF 277 278 IF( lk_lim3 .AND. .NOT. lk_vvl ) THEN 279 DO jk = 1, jpk 280 fse3t_b(:,:,jk) = fse3t_n(:,:,jk) 281 END DO 282 ENDIF 283 274 284 ENDIF 275 285 ! 276 286 IF( lk_lim3 ) THEN 277 CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif 278 CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif 287 CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev' , fraqsr_1lev ) 279 288 ENDIF 280 289 !
Note: See TracChangeset
for help on using the changeset viewer.