- Timestamp:
- 2018-07-19T17:58:12+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9956_ENHANCE05_ZAD_AIMP/src/OCE/DOM/domvvl.F90
r9957 r9976 149 149 150 150 ! We need to define e3[tuv]_a for AGRIF initialisation (should not be a problem for the restartability...) 151 e3t_a(:,:,:) = e3t_n(:,:,:) 152 e3u_a(:,:,:) = e3u_n(:,:,:) 153 e3v_a(:,:,:) = e3v_n(:,:,:) 151 e3t_a (:,:,:) = e3t_n (:,:,:) 152 e3u_a (:,:,:) = e3u_n (:,:,:) 153 e3v_a (:,:,:) = e3v_n (:,:,:) 154 e3uw_a(:,:,:) = e3uw_n(:,:,:) 155 e3vw_a(:,:,:) = e3vw_n(:,:,:) 154 156 ! 155 157 ! !== depth of t and w-point ==! (set the isf depth as it is in the initial timestep) … … 534 536 END IF 535 537 536 ! *********************************** !537 ! After scale factors at u- v- points !538 ! *********************************** !538 ! ******************************************* ! 539 ! After scale factors at u- v- uw- vw- points ! 540 ! ******************************************* ! 539 541 540 542 CALL dom_vvl_interpol( e3t_a(:,:,:), e3u_a(:,:,:), 'U' ) 541 543 CALL dom_vvl_interpol( e3t_a(:,:,:), e3v_a(:,:,:), 'V' ) 544 CALL dom_vvl_interpol( e3u_a(:,:,:), e3uw_a(:,:,:), 'UW' ) 545 CALL dom_vvl_interpol( e3v_a(:,:,:), e3vw_a(:,:,:), 'VW' ) 542 546 543 547 ! *********************************** !
Note: See TracChangeset
for help on using the changeset viewer.