Changeset 13237 for NEMO/trunk/src/OCE/FLO
- Timestamp:
- 2020-07-03T11:12:53+02:00 (4 years ago)
- Location:
- NEMO/trunk/src/OCE/FLO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/FLO/flo4rk.F90
r12489 r13237 26 26 REAL(wp), DIMENSION (3) :: scoef1 = (/ 0.5 , 0.5 , 1.0 /) ! 27 27 28 # include "domzgr_substitute.h90" 28 29 !!---------------------------------------------------------------------- 29 30 !! NEMO/OCE 4.0 , NEMO Consortium (2018) -
NEMO/trunk/src/OCE/FLO/floblk.F90
r13216 r13237 19 19 20 20 PUBLIC flo_blk ! routine called by floats.F90 21 22 # include "domzgr_substitute.h90" 21 23 22 24 !!---------------------------------------------------------------------- … … 115 117 ! compute the transport across the mesh where the float is. 116 118 !!bug (gm) change e3t into e3. but never checked 117 zsurfx(1) = e2u(iiloc(jfl)-1,ijloc(jfl) ) * e3u(iiloc(jfl)-1,ijloc(jfl) ,-ikl(jfl),Kmm) 118 zsurfx(2) = e2u(iiloc(jfl) ,ijloc(jfl) ) * e3u(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl),Kmm) 119 zsurfy(1) = e1v(iiloc(jfl) ,ijloc(jfl)-1) * e3v(iiloc(jfl) ,ijloc(jfl)-1,-ikl(jfl),Kmm) 120 zsurfy(2) = e1v(iiloc(jfl) ,ijloc(jfl) ) * e3v(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl),Kmm) 119 zsurfx(1) = & 120 & e2u(iiloc(jfl)-1,ijloc(jfl) ) & 121 & * e3u(iiloc(jfl)-1,ijloc(jfl) ,-ikl(jfl),Kmm) 122 zsurfx(2) = & 123 & e2u(iiloc(jfl) ,ijloc(jfl) ) & 124 & * e3u(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl),Kmm) 125 zsurfy(1) = & 126 & e1v(iiloc(jfl) ,ijloc(jfl)-1) & 127 & * e3v(iiloc(jfl) ,ijloc(jfl)-1,-ikl(jfl),Kmm) 128 zsurfy(2) = & 129 & e1v(iiloc(jfl) ,ijloc(jfl) ) & 130 & * e3v(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl),Kmm) 121 131 122 132 ! for a isobar float zsurfz is put to zero. The vertical velocity will be zero too.
Note: See TracChangeset
for help on using the changeset viewer.