Changeset 4489 for LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90
- Timestamp:
- Mar 31, 2023, 8:42:57 PM (18 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk
- Property svn:mergeinfo changed
/LMDZ6/branches/LMDZ_ECRad (added) merged: 4175,4177-4183,4188,4192,4200-4203,4355,4366,4387-4388,4390,4444,4482,4486,4488
- Property svn:mergeinfo changed
-
LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90
r3438 r4489 32 32 INTEGER n_lev ! number of levels in the input data 33 33 INTEGER n_month ! number of months in the input data 34 REAL, POINTER:: latitude(:)35 REAL, POINTER:: longitude(:)36 REAL, POINTER:: time(:)37 REAL, POINTER:: lev(:)34 REAL, ALLOCATABLE:: latitude(:) 35 REAL, ALLOCATABLE:: longitude(:) 36 REAL, ALLOCATABLE:: time(:) 37 REAL, ALLOCATABLE:: lev(:) 38 38 INTEGER k, band, wave, i 39 39 INTEGER, SAVE :: mth_pre=1
Note: See TracChangeset
for help on using the changeset viewer.