- Timestamp:
- 2015-12-16T17:37:14+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90
r6060 r6073 80 80 DO ji = fs_2, jpi ! vector opt. 81 81 ! ! ahm * e3 * curl (computed from 1 to jpim1/jpjm1) 82 !!gm open question here : fse3f at before or now ? probably now...82 !!gm open question here : e3f at before or now ? probably now... 83 83 !!gm note that ahmf has already been multiplied by fmask 84 84 zcur(ji-1,jj-1) = ahmf(ji-1,jj-1,jk) * e3f_n(ji-1,jj-1,jk) * r1_e1e2f(ji-1,jj-1) &
Note: See TracChangeset
for help on using the changeset viewer.