Changeset 4206
- Timestamp:
- 2013-11-14T21:13:29+01:00 (10 years ago)
- Location:
- branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r4205 r4206 25 25 USE domvvl ! variable volume 26 26 USE divcur ! hor. divergence and curl (div & cur routines) 27 USE sbc_ice, ONLY : lk_lim3 27 28 28 29 IMPLICIT NONE … … 132 133 CALL iom_rstput( kt, nitrst, numrow, 'rhd' , rhd ) 133 134 #endif 135 IF( lk_lim3 ) THEN 134 136 CALL iom_rstput( kt, nitrst, numrow, 'iatte' , iatte ) !clem modif 135 137 CALL iom_rstput( kt, nitrst, numrow, 'oatte' , oatte ) !clem modif 138 ENDIF 136 139 IF( kt == nitrst ) THEN 137 140 CALL iom_close( numrow ) ! close the restart file (only at last time step) … … 234 237 ENDIF 235 238 ! 236 CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif 237 CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif 239 IF( lk_lim3 ) THEN 240 CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif 241 CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif 242 ENDIF 238 243 ! 239 244 END SUBROUTINE rst_read -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r4205 r4206 364 364 CALL lim_update2 ! Global variables update 365 365 #if defined key_bdy 366 CALL lim_var_glo2eqv ! 366 367 CALL bdy_ice_lim( kt ) ! clem modif: bdy ice 367 368 #endif -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r4205 r4206 163 163 CALL iom_put( 'qsr3d', etot3 ) ! Shortwave Radiation 3D distribution 164 164 ! clem: store attenuation coefficient of the first ocean level 165 IF ( l n_qsr_ice ) THEN165 IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 166 166 DO jj = 1, jpj 167 167 DO ji = 1, jpi … … 232 232 END DO 233 233 ! clem: store attenuation coefficient of the first ocean level 234 IF ( l n_qsr_ice ) THEN234 IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 235 235 DO jj = 1, jpj 236 236 DO ji = 1, jpi … … 256 256 END DO 257 257 ! clem: store attenuation coefficient of the first ocean level 258 IF ( l n_qsr_ice ) THEN258 IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 259 259 oatte(:,:) = etot3(:,:,1) / r1_rau0_rcp 260 260 iatte(:,:) = oatte(:,:) … … 280 280 END DO 281 281 ! clem: store attenuation coefficient of the first ocean level 282 IF ( l n_qsr_ice ) THEN282 IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 283 283 DO jj = 1, jpj 284 284 DO ji = 1, jpi … … 299 299 END DO 300 300 ! clem: store attenuation coefficient of the first ocean level 301 IF ( l n_qsr_ice ) THEN301 IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 302 302 oatte(:,:) = etot3(:,:,1) / r1_rau0_rcp 303 303 iatte(:,:) = oatte(:,:) … … 319 319 ! 320 320 ENDIF 321 ! clem: store attenuation coefficient of the first ocean level322 !IF (ln_traqsr) THEN323 ! DO jj = 1, jpj324 ! DO ji = 1, jpi325 ! IF ( qsr(ji,jj) /= 0._wp ) THEN326 ! oatte(ji,jj) = qsr_hc(ji,jj,1) / ( r1_rau0_rcp * qsr(ji,jj) )327 ! iatte(ji,jj) = qsr_hc(ji,jj,1) / ( r1_rau0_rcp * qsr(ji,jj) )328 ! ENDIF329 ! END DO330 ! END DO331 !END IF332 321 ! 333 322 IF( lrst_oce ) THEN ! Write in the ocean restart file
Note: See TracChangeset
for help on using the changeset viewer.