Changeset 3282 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2012-01-27T14:08:19+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3262 r3282 774 774 ! 775 775 DO jk = 1, jpk 776 fsdept(:,:,jk) = gdept_0(jk)777 fsdepw(:,:,jk) = gdepw_0(jk)778 fsde3w(:,:,jk) = gdepw_0(jk)779 fse3t (:,:,jk) = e3t_0(jk)780 fse3u (:,:,jk) = e3t_0(jk)781 fse3v (:,:,jk) = e3t_0(jk)782 fse3f (:,:,jk) = e3t_0(jk)783 fse3w (:,:,jk) = e3w_0(jk)784 fse3uw(:,:,jk) = e3w_0(jk)785 fse3vw(:,:,jk) = e3w_0(jk)776 gdept(:,:,jk) = gdept_0(jk) 777 gdepw(:,:,jk) = gdepw_0(jk) 778 gdep3w(:,:,jk) = gdepw_0(jk) 779 e3t (:,:,jk) = e3t_0(jk) 780 e3u (:,:,jk) = e3t_0(jk) 781 e3v (:,:,jk) = e3t_0(jk) 782 e3f (:,:,jk) = e3t_0(jk) 783 e3w (:,:,jk) = e3w_0(jk) 784 e3uw(:,:,jk) = e3w_0(jk) 785 e3vw(:,:,jk) = e3w_0(jk) 786 786 END DO 787 787 !
Note: See TracChangeset
for help on using the changeset viewer.