Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r2528 r2715 46 46 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 47 47 !! $Id$ 48 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)48 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 49 49 !!---------------------------------------------------------------------- 50 51 50 CONTAINS 52 51 … … 68 67 !! - nmonth_len, nyear_len, nmonth_half, nmonth_end through day_mth 69 68 !!---------------------------------------------------------------------- 70 INTEGER ::inbday, idweek71 REAL(wp) :: zjul69 INTEGER :: inbday, idweek 70 REAL(wp) :: zjul 72 71 !!---------------------------------------------------------------------- 73 72 … … 129 128 CALL day( nit000 ) 130 129 131 132 130 END SUBROUTINE day_init 133 131
Note: See TracChangeset
for help on using the changeset viewer.