|
Last change
on this file was
5158,
checked in by abarral, 3 months ago
|
|
Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables
|
|
File size:
497 bytes
|
| Line | |
|---|
| 1 | MODULE lmdz_date_cas |
|---|
| 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 |
|---|
| 11 | END MODULE lmdz_date_cas |
|---|
| 12 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
