Changeset 15456
- Timestamp:
- 2021-10-28T12:15:52+02:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/BDY/bdydyn2d.F90
r14075 r15456 174 174 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 175 175 INTEGER, INTENT(in) :: ib_bdy ! BDY set index 176 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 177 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pssh, phur, phvr 176 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d ! JT After barotropic velocities 177 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pssh, phur, phvr ! JT SSH after, and phur, phvr = inverse of depth of water 178 178 LOGICAL , INTENT(in) :: llrim0 ! indicate if rim 0 is treated 179 179 INTEGER :: ibeg, iend ! length of rim to be treated (rim 0 or rim 1) -
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/tide_mod.F90
r14266 r15456 71 71 !!---------------------------------------------------------------------- 72 72 ! 73 zqy = AINT( (nyear-1901.)/4. ) 74 zsy = nyear - 1900. 75 ! 76 zdj = dayjul( nyear, nmonth, nday ) 77 zday = zdj + zqy - 1. 78 ! 79 zhfrac = nsec_day / 3600. 73 zqy = AINT( (nyear-1901.)/4. ) ! leap years since 1901 74 zsy = nyear - 1900. ! years since 1900 75 ! 76 zdj = dayjul( nyear, nmonth, nday ) ! day number of year 77 zday = zdj + zqy - 1. ! day number of year + No of leap yrs 78 ! i.e. what would doy if every year = 365 day?? 79 ! 80 zhfrac = nsec_day / 3600. ! The seconds of the day/3600 80 81 ! 81 82 !----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.