Changeset 6080 for branches/2015
- Timestamp:
- 2015-12-17T11:14:17+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90
r6075 r6080 117 117 e3v_b (:,:,:) = e3v_n (:,:,:) 118 118 119 IF ( lk_vvl ) THEN 120 e3uw_b(:,:,:) = e3uw_n(:,:,:) 121 e3vw_b(:,:,:) = e3vw_n(:,:,:) 122 dept_b(:,:,:) = gdept_n(:,:,:) 123 gdepw_b(:,:,:) = gdepw_n(:,:,:) 124 hu_b (:,:) = hu_n(:,:) 125 hv_b (:,:) = hv_n(:,:) 126 r1_hu_b(:,:) = r1_hu_n(:,:) 127 r1_hv_b(:,:) = r1_hv_n(:,:) 128 END IF 119 e3uw_b(:,:,:) = e3uw_n(:,:,:) 120 e3vw_b(:,:,:) = e3vw_n(:,:,:) 121 gdept_b(:,:,:) = gdept_n(:,:,:) 122 gdepw_b(:,:,:) = gdepw_n(:,:,:) 123 hu_b (:,:) = hu_n(:,:) 124 hv_b (:,:) = hv_n(:,:) 125 r1_hu_b(:,:) = r1_hu_n(:,:) 126 r1_hv_b(:,:) = r1_hv_n(:,:) 129 127 ! 130 128 END SUBROUTINE iscpl_stp
Note: See TracChangeset
for help on using the changeset viewer.