Changeset 634 for LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histhf3d.h
- Timestamp:
- May 4, 2005, 5:11:29 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histhf3d.h
r524 r634 20 20 21 21 c 22 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)23 DO i = 1, iim24 zx_lon(i,1) = rlon(i+1)25 zx_lon(i,jjmp1) = rlon(i+1)26 ENDDO22 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) 23 cym DO i = 1, iim 24 cym zx_lon(i,1) = rlon(i+1) 25 cym zx_lon(i,jjmp1) = rlon(i+1) 26 cym ENDDO 27 27 28 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)28 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 29 29 30 30 cccIM CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat, 31 CALL histbeg("histhf3d", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 32 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 31 cym CALL histbeg("histhf3d", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 32 cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 33 cym . nhori, nid_hf3d) 34 CALL histbeg_phy("histhf3d", itau_phy, zjulian, dtime, 33 35 . nhori, nid_hf3d) 34 36 … … 42 44 c 43 45 CALL histdef(nid_hf3d, "temp", "Air temperature", "K", 44 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,46 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 45 47 . "ave(X)", zsto,zout) 46 48 c 47 49 CALL histdef(nid_hf3d, "ovap", "Specific humidity", "kg/kg", 48 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,50 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 49 51 . "ave(X)", zsto,zout) 50 52 c 51 53 CALL histdef(nid_hf3d, "vitu", "Zonal wind", "m/s", 52 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,54 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 53 55 . "ave(X)", zsto,zout) 54 56 c 55 57 CALL histdef(nid_hf3d, "vitv", "Meridional wind", "m/s", 56 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,58 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 57 59 . "ave(X)", zsto,zout) 58 60 c
Note: See TracChangeset
for help on using the changeset viewer.