Changeset 171 for trunk/NEMO/OPA_SRC/FLO
- Timestamp:
- 2004-11-05T14:53:25+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/FLO/flodom.F90
r16 r171 186 186 zgifl(jfl-jpnrstflo)= (iimfl(jfl)-0.5) + zdxab/e1u(iimfl(jfl)-1,ijmfl(jfl)) + (mig(1)-jpizoom) 187 187 zgjfl(jfl-jpnrstflo)= (ijmfl(jfl)-0.5) + zdyad/e2v(iimfl(jfl),ijmfl(jfl)-1) + (mjg(1)-jpjzoom) 188 zgkfl(jfl-jpnrstflo) = (( fsdepw( ji,jj,ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl))&189 / ( fsdepw( ji,jj,ikmfl(jfl)+1) - fsdepw(ji,jj,ikmfl(jfl) ) ) &190 + (( flzz(jfl)-fsdepw( ji,jj,ikmfl(jfl)) ) *(ikmfl(jfl)+1))&191 / ( fsdepw( ji,jj,ikmfl(jfl)+1) - fsdepw(ji,jj,ikmfl(jfl)) )188 zgkfl(jfl-jpnrstflo) = (( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl)) & 189 / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) ) & 190 + (( flzz(jfl)-fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1)) & 191 / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) 192 192 ELSE 193 193 zgifl(jfl-jpnrstflo) = 0. … … 313 313 tpifl(jfl) = (iimfl(jfl)-0.5)+zdxab/ e1u(iimfl(jfl)-1,ijmfl(jfl))+(mig(1)-jpizoom) 314 314 tpjfl(jfl) = (ijmfl(jfl)-0.5)+zdyad/ e2v(iimfl(jfl),ijmfl(jfl)-1)+(mjg(1)-jpjzoom) 315 tpkfl(jfl) = (fsdepw( ji,jj,ikmfl(jfl)+1) - flzz(jfl))*(ikmfl(jfl))&316 / (fsdepw( ji,jj,ikmfl(jfl)+1) - fsdepw(ji,jj,ikmfl(jfl))) &317 + (flzz(jfl) - fsdepw( ji,jj,ikmfl(jfl)))*(ikmfl(jfl)+1)&318 / (fsdepw( ji,jj,ikmfl(jfl)+1) - fsdepw(ji,jj,ikmfl(jfl)))315 tpkfl(jfl) = (fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl))*(ikmfl(jfl)) & 316 / (fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl))) & 317 + (flzz(jfl) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)))*(ikmfl(jfl)+1) & 318 / (fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl))) 319 319 ELSE 320 320 tpifl (jfl) = 0.e0
Note: See TracChangeset
for help on using the changeset viewer.