source: LMDZ6/trunk/libf/phylmd/dyn1d/date_cas_mod_h.f90 @ 5446

Last change on this file since 5446 was 5302, checked in by abarral, 8 weeks ago

Turn compar1d.h date_cas.h into module
Move fcg_racmo.h to obsolete

File size: 499 bytes
Line 
1MODULE date_cas_mod_h
2  IMPLICIT NONE; PRIVATE
3  PUBLIC year_ini_cas, mth_ini_cas, day_deb, heure_ini_cas, pdt_cas, day_ju_ini_cas
4
5  INTEGER :: year_ini_cas    ! initial year of the case
6  INTEGER :: mth_ini_cas     ! initial month of the case
7  INTEGER :: day_deb         ! initial day of the case
8  REAL :: heure_ini_cas      ! start time of the case
9  REAL :: pdt_cas            ! forcing_frequency
10  REAL :: day_ju_ini_cas     ! julian day of initial day of the case
11END MODULE date_cas_mod_h
12
Note: See TracBrowser for help on using the repository browser.