Changeset 283
- Timestamp:
- 2005-09-22T12:24:53+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/FLO/flodom.F90
r247 r283 16 16 USE dom_oce ! ocean space and time domain 17 17 USE flo_oce ! ocean drifting floats 18 ! USE floats19 18 USE in_out_manager ! I/O manager 20 19 USE lib_mpp ! distribued memory computing library … … 181 180 ! 182 181 183 zdxab = dstnce( flxx(jfl),flyy(jfl),glamf(iimfl(jfl)-1,ijmfl(jfl)-1),flyy(jfl))184 zdyad = dstnce( flxx(jfl),flyy(jfl),flxx(jfl),gphif(iimfl(jfl)-1,ijmfl(jfl)-1))182 zdxab = dstnce( flxx(jfl), flyy(jfl), glamf(iimfl(jfl)-1,ijmfl(jfl)-1), flyy(jfl) ) 183 zdyad = dstnce( flxx(jfl), flyy(jfl), flxx(jfl), gphif(iimfl(jfl)-1,ijmfl(jfl)-1) ) 185 184 186 185 ! Translation of this distances (in meter) in indexes … … 188 187 zgifl(jfl-jpnrstflo)= (iimfl(jfl)-0.5) + zdxab/e1u(iimfl(jfl)-1,ijmfl(jfl)) + (mig(1)-jpizoom) 189 188 zgjfl(jfl-jpnrstflo)= (ijmfl(jfl)-0.5) + zdyad/e2v(iimfl(jfl),ijmfl(jfl)-1) + (mjg(1)-jpjzoom) 190 zgkfl(jfl-jpnrstflo) = (( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl)) & 191 / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) ) & 192 + (( flzz(jfl)-fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1)) & 193 / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) 189 zgkfl(jfl-jpnrstflo) = (( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl)) & 190 & / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) & 191 & - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) ) & 192 & + (( flzz(jfl)-fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1)) & 193 & / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) & 194 & - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) 194 195 ELSE 195 zgifl(jfl-jpnrstflo) = 0. 196 zgjfl(jfl-jpnrstflo) = 0. 197 zgkfl(jfl-jpnrstflo) = 0. 196 zgifl(jfl-jpnrstflo) = 0.e0 197 zgjfl(jfl-jpnrstflo) = 0.e0 198 zgkfl(jfl-jpnrstflo) = 0.e0 198 199 ENDIF 199 200 END DO
Note: See TracChangeset
for help on using the changeset viewer.