New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15456 – NEMO

Changeset 15456


Ignore:
Timestamp:
2021-10-28T12:15:52+02:00 (7 months ago)
Author:
hadjt
Message:

Preparation for change in SBC/tide_mod.F90
comments added to SBC/tide_mod.F90 (and BDY/bdydyn2d.F90).

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  
    174174      TYPE(OBC_DATA),               INTENT(in) ::   dta  ! OBC external data 
    175175      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  
    178178      LOGICAL                     , INTENT(in) ::   llrim0   ! indicate if rim 0 is treated 
    179179      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  
    7171      !!---------------------------------------------------------------------- 
    7272      ! 
    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 
    8081      ! 
    8182      !---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.