- Timestamp:
- May 6, 2015, 12:14:12 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ini_histday_seri.h
r3819 r3825 13 13 CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) 14 14 ! 15 CALL grid1dTo2d_glo( rlon,zx_lon)15 CALL grid1dTo2d_glo(lon_degrees,zx_lon) 16 16 DO i = 1, nbp_lon 17 zx_lon(i,1) = rlon(i+1)18 zx_lon(i,jjmp1) = rlon(i+1)17 zx_lon(i,1) = lon_degrees(i+1) 18 zx_lon(i,jjmp1) = lon_degrees(i+1) 19 19 ENDDO 20 20 DO ll=1,klev 21 21 znivsig(ll)=REAL(ll) 22 22 ENDDO 23 CALL grid1dTo2d_glo( rlat,zx_lat)23 CALL grid1dTo2d_glo(lat_degrees,zx_lat) 24 24 ! 25 25 imin_debut=1
Note: See TracChangeset
for help on using the changeset viewer.