Changeset 2914
- Timestamp:
- 2011-10-13T16:26:43+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r2910 r2914 135 135 #if defined key_traldf_eiv 136 136 # if defined key_traldf_c3d 137 a ieu_tm (:,:,:) = aieu_tm (:,:,:) + aieu(:,:,:) * fse3u(:,:,:)138 a iev_tm (:,:,:) = aiev_tm (:,:,:) + aiev(:,:,:) * fse3v(:,:,:)139 a iew_tm (:,:,:) = aiew_tm (:,:,:) + aiew(:,:,:) * fse3w(:,:,:)137 aeiu_tm (:,:,:) = aeiu_tm (:,:,:) + aeiu(:,:,:) * fse3u(:,:,:) 138 aeiv_tm (:,:,:) = aeiv_tm (:,:,:) + aeiv(:,:,:) * fse3v(:,:,:) 139 aeiw_tm (:,:,:) = aeiw_tm (:,:,:) + aeiw(:,:,:) * fse3w(:,:,:) 140 140 # elif defined key_traldf_c2d 141 a ieu_tm (:,:) = aieu_tm (:,:) + aieu(:,:)142 a iev_tm (:,:) = aiev_tm (:,:) + aiev(:,:)143 a iew_tm (:,:) = aiew_tm (:,:) + aiew(:,:)141 aeiu_tm (:,:) = aeiu_tm (:,:) + aeiu(:,:) 142 aeiv_tm (:,:) = aeiv_tm (:,:) + aeiv(:,:) 143 aeiw_tm (:,:) = aeiw_tm (:,:) + aeiw(:,:) 144 144 # elif defined key_traldf_c1d 145 a ieu_tm (:) = aieu_tm (:,:) + aieu(:)146 a iev_tm (:) = aiev_tm (:,:) + aiev(:)147 a iew_tm (:) = aiew_tm (:,:) + aiew(:)145 aeiu_tm (:) = aeiu_tm (:,:) + aeiu(:) 146 aeiv_tm (:) = aeiv_tm (:,:) + aeiv(:) 147 aeiw_tm (:) = aeiw_tm (:,:) + aeiw(:) 148 148 # else 149 a ieu_tm = aieu_tm + aieu150 a iev_tm = aiev_tm + aiev151 a iew_tm = aiew_tm + aiew149 aeiu_tm = aeiu_tm + aeiu 150 aeiv_tm = aeiv_tm + aeiv 151 aeiw_tm = aeiw_tm + aeiw 152 152 # endif 153 153 #endif … … 556 556 #if defined key_traldf_eiv 557 557 # if defined key_traldf_c3d 558 a ieu_tm(:,:,:) = aieu(:,:,:) * fse3u(:,:,:)559 a iev_tm(:,:,:) = aiev(:,:,:) * fse3v(:,:,:)560 a iew_tm(:,:,:) = aiew(:,:,:) * fse3w(:,:,:)558 aeiu_tm(:,:,:) = aeiu(:,:,:) * fse3u(:,:,:) 559 aeiv_tm(:,:,:) = aeiv(:,:,:) * fse3v(:,:,:) 560 aeiw_tm(:,:,:) = aeiw(:,:,:) * fse3w(:,:,:) 561 561 # elif defined key_traldf_c2d 562 a ieu_tm(:,:) = aeiu(:,:)563 a iev_tm(:,:) = aeiv(:,:)564 a iew_tm(:,:) = aeiw(:,:)562 aeiu_tm(:,:) = aeiu(:,:) 563 aeiv_tm(:,:) = aeiv(:,:) 564 aeiw_tm(:,:) = aeiw(:,:) 565 565 # elif defined key_traldf_c1d 566 566 aeiu_tm(:) = aeiu(:) … … 762 762 # if defined key_traldf_c3d 763 763 DO jk = 1, jpk 764 a ieu_tm(:,:,jk) = aieu(:,:,jk) * fse3u(:,:,jk)765 a iev_tm(:,:,jk) = aiev(:,:,jk) * fse3v(:,:,jk)766 a iew_tm(:,:,jk) = aiew(:,:,jk) * fse3w(:,:,jk)764 aeiu_tm(:,:,jk) = aeiu(:,:,jk) * fse3u(:,:,jk) 765 aeiv_tm(:,:,jk) = aeiv(:,:,jk) * fse3v(:,:,jk) 766 aeiw_tm(:,:,jk) = aeiw(:,:,jk) * fse3w(:,:,jk) 767 767 END DO 768 768 # elif defined key_traldf_c2d 769 a ieu_tm(:,:) = aeiu(:,:)770 a iev_tm(:,:) = aeiv(:,:)771 a iew_tm(:,:) = aeiw(:,:)769 aeiu_tm(:,:) = aeiu(:,:) 770 aeiv_tm(:,:) = aeiv(:,:) 771 aeiw_tm(:,:) = aeiw(:,:) 772 772 # elif defined key_traldf_c1d 773 773 aeiu_tm(:) = aeiu(:)
Note: See TracChangeset
for help on using the changeset viewer.