Changeset 7158 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
- Timestamp:
- 2016-10-29T01:21:05+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r5912 r7158 325 325 ENDIF 326 326 327 IF ( nsec_day == NINT(0.5_wp * rdt tra(1)) .AND. zflag==1 ) THEN327 IF ( nsec_day == NINT(0.5_wp * rdt) .AND. zflag==1 ) THEN 328 328 ! 329 329 kt_tide = kt … … 440 440 ! We refresh nodal factors every day below 441 441 ! This should be done somewhere else 442 IF ( nsec_day == NINT(0.5_wp * rdt tra(1)) .AND. lk_first_btstp ) THEN442 IF ( nsec_day == NINT(0.5_wp * rdt) .AND. lk_first_btstp ) THEN 443 443 ! 444 444 kt_tide = kt
Note: See TracChangeset
for help on using the changeset viewer.