Changeset 12511 for NEMO/branches/2020/r12377_ticket2386/src/OCE/FLO
- Timestamp:
- 2020-03-05T12:21:05+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/r12377_ticket2386
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12377_ticket2386
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2020/r12377_ticket2386/src/OCE/FLO/flo4rk.F90
r12377 r12511 130 130 ! computation of Runge-Kutta factor 131 131 DO jfl = 1, jpnfl 132 zrkxfl(jfl,jind) = r dt*zufl(jfl)133 zrkyfl(jfl,jind) = r dt*zvfl(jfl)134 zrkzfl(jfl,jind) = r dt*zwfl(jfl)132 zrkxfl(jfl,jind) = rn_Dt*zufl(jfl) 133 zrkyfl(jfl,jind) = rn_Dt*zvfl(jfl) 134 zrkzfl(jfl,jind) = rn_Dt*zwfl(jfl) 135 135 END DO 136 136 IF( jind /= 4 ) THEN -
NEMO/branches/2020/r12377_ticket2386/src/OCE/FLO/floblk.F90
r12377 r12511 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 -
NEMO/branches/2020/r12377_ticket2386/src/OCE/FLO/flowri.F90
r12377 r12511 122 122 ztem(jfl) = ts(iafloc,ibfloc,icfl,jp_tem,Kmm) 123 123 zsal (jfl) = ts(iafloc,ibfloc,icfl,jp_sal,Kmm) 124 zrho (jfl) = (rhd(iafloc,ibfloc,icfl)+1)*r au0124 zrho (jfl) = (rhd(iafloc,ibfloc,icfl)+1)*rho0 125 125 126 126 ENDIF … … 142 142 ztem(jfl) = ts(iafloc,ibfloc,icfl,jp_tem,Kmm) 143 143 zsal(jfl) = ts(iafloc,ibfloc,icfl,jp_sal,Kmm) 144 zrho(jfl) = (rhd(iafloc,ibfloc,icfl)+1)*r au0144 zrho(jfl) = (rhd(iafloc,ibfloc,icfl)+1)*rho0 145 145 146 146 ENDIF … … 245 245 !------------------------------- 246 246 irec = INT( (kt-nn_it000+1)/nn_writefl ) +1 247 ztime = ( kt-nn_it000 + 1 ) * r dt247 ztime = ( kt-nn_it000 + 1 ) * rn_Dt 248 248 249 249 CALL flioputv( numflo , 'time_counter', ztime , start=(/irec/) )
Note: See TracChangeset
for help on using the changeset viewer.