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 2076 for branches/devmercator2010/NEMO/OPA_SRC/DOM/dom_oce.F90 – NEMO

Ignore:
Timestamp:
2010-09-08T18:17:25+02:00 (14 years ago)
Author:
cbricaud
Message:

add change dev_1784_EVP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/devmercator2010/NEMO/OPA_SRC/DOM/dom_oce.F90

    r2075 r2076  
    195195   !! calendar variables 
    196196   !! --------------------------------------------------------------------- 
    197    INTEGER , PUBLIC ::   nyear         !: current year 
    198    INTEGER , PUBLIC ::   nmonth        !: current month 
    199    INTEGER , PUBLIC ::   nday          !: current day of the month 
    200    INTEGER , PUBLIC ::   ndastp        !: time step date in yyyymmdd format 
    201    INTEGER , PUBLIC ::   nday_year     !: current day counted from jan 1st of the current year 
    202    INTEGER , PUBLIC ::   nsec_year     !: current time step counted in second since 00h jan 1st of the current year 
    203    INTEGER , PUBLIC ::   nsec_month    !: current time step counted in second since 00h 1st day of the current month 
    204    INTEGER , PUBLIC ::   nsec_week     !: current time step counted in second since 00h of last monday 
    205    INTEGER , PUBLIC ::   nsec_day      !: current time step counted in second since 00h of the current day 
    206    REAL(wp), PUBLIC ::   fjulday       !: current julian day  
    207    REAL(wp), PUBLIC ::   fjulstartyear !: first day of the current year in julian days 
    208    REAL(wp), PUBLIC ::   adatrj        !: number of elapsed days since the begining of the whole simulation 
    209    !                                   !: (cumulative duration of previous runs that may have used different time-step size) 
     197   INTEGER , PUBLIC ::   nyear       !: current year 
     198   INTEGER , PUBLIC ::   nmonth      !: current month 
     199   INTEGER , PUBLIC ::   nday        !: current day of the month 
     200   INTEGER , PUBLIC ::   ndastp      !: time step date in yyyymmdd format 
     201   INTEGER , PUBLIC ::   nday_year   !: current day counted from jan 1st of the current year 
     202   INTEGER , PUBLIC ::   nsec_year   !: current time step counted in second since 00h jan 1st of the current year 
     203   INTEGER , PUBLIC ::   nsec_month  !: current time step counted in second since 00h 1st day of the current month 
     204   INTEGER , PUBLIC ::   nsec_day    !: current time step counted in second since 00h of the current day 
     205   REAL(wp), PUBLIC ::   fjulday     !: julian day  
     206   REAL(wp), PUBLIC ::   adatrj      !: number of elapsed days since the begining of the whole simulation 
     207   !                                 !: (cumulative duration of previous runs that may have used different time-step size) 
    210208   INTEGER , PUBLIC, DIMENSION(0: 1) ::   nyear_len     !: length in days of the previous/current year 
    211209   INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_len    !: length in days of the months of the current year 
Note: See TracChangeset for help on using the changeset viewer.