Changeset 12489 for NEMO/trunk/src/OCE/FLO/floblk.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/FLO/floblk.F90
r12377 r12489 233 233 ! test to know if the "age" of the float is not bigger than the 234 234 ! time step 235 IF( zagenewfl(jfl) > r dt ) THEN236 zttfl(jfl) = (r dt-zagefl(jfl)) / zvol237 zagenewfl(jfl) = r dt235 IF( zagenewfl(jfl) > rn_Dt ) THEN 236 zttfl(jfl) = (rn_Dt-zagefl(jfl)) / zvol 237 zagenewfl(jfl) = rn_Dt 238 238 ENDIF 239 239 … … 340 340 ifin = 1 341 341 DO jfl = 1, jpnfl 342 IF( zagefl(jfl) < r dt ) ifin = 0342 IF( zagefl(jfl) < rn_Dt ) ifin = 0 343 343 tpifl(jfl) = zgifl(jfl) + 0.5 344 344 tpjfl(jfl) = zgjfl(jfl) + 0.5 … … 347 347 ifin = 1 348 348 DO jfl = 1, jpnfl 349 IF( zagefl(jfl) < r dt ) ifin = 0349 IF( zagefl(jfl) < rn_Dt ) ifin = 0 350 350 tpifl(jfl) = zgifl(jfl) + 0.5 351 351 tpjfl(jfl) = zgjfl(jfl) + 0.5
Note: See TracChangeset
for help on using the changeset viewer.