Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h
- Timestamp:
- Aug 17, 2006, 5:41:51 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h
r684 r704 53 53 c definition coordonnees lon,lat en globale 54 54 c 55 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)56 DO i = 1, iim57 zx_lon(i,1) = rlon(i+1)58 zx_lon(i,jjmp1) = rlon(i+1)59 ENDDO60 61 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)55 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) 56 cym DO i = 1, iim 57 cym zx_lon(i,1) = rlon(i+1) 58 cym zx_lon(i,jjmp1) = rlon(i+1) 59 cym ENDDO 60 61 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 62 62 c 63 63 cIM BEG region 64 cym Desole dans un premier temps le mode région ne marchera pas 65 cym Il faudra voir dans un second temps pour l'implementer 66 cym Mais cela posera des problèmes au niveau de la reconstruction 67 64 68 imin_ins=1 65 69 imax_ins=iim … … 83 87 c 84 88 IF(1.EQ.0) THEN 85 CALL histbeg("histISCCP.nc", iim,zx_lon(:,1),jjmp1,zx_lat(1,:), 86 . 1, iim, 1, jjmp1, 87 . itau_phy, zjulian, dtime, 89 cym CALL histbeg("histISCCP.nc", iim,zx_lon(:,1),jjmp1,zx_lat(1,:), 90 cym . 1, iim, 1, jjmp1, 91 cym . itau_phy, zjulian, dtime, 92 cym . nhori, nid_isccp) 93 CALL histbeg_phy("histISCCP.nc", itau_phy, zjulian, dtime, 88 94 . nhori, nid_isccp) 95 89 96 ENDIF !(1.EQ.0) THEN 90 97 c 91 CALL histbeg("histISCCP.nc", iim,zx_lon(:,1), 92 . jjmp1,zx_lat(1,:), 93 . imin_ins,imax_ins-imin_ins+1, 94 . jmin_ins,jmax_ins-jmin_ins+1, 95 . itau_phy, zjulian, dtime, 98 cym CALL histbeg("histISCCP.nc", iim,zx_lon(:,1), 99 cym . jjmp1,zx_lat(1,:), 100 cym . imin_ins,imax_ins-imin_ins+1, 101 cym . jmin_ins,jmax_ins-jmin_ins+1, 102 cym . itau_phy, zjulian, dtime, 103 cym . nhori, nid_isccp) 104 105 CALL histbeg_phy("histISCCP.nc", itau_phy, zjulian, dtime, 96 106 . nhori, nid_isccp) 107 97 108 c 98 109 IF(type_run.EQ."ENSP".OR.type_run.EQ."CLIM") THEN … … 118 129 CALL histdef(nid_isccp, "cldISCCP_"//taulev(k)//typinout(n), 119 130 . "LMDZ ISCCP cld", "%", 120 . iim, jj mp1,nhori,lmaxm1,1,lmaxm1,nvert,32,131 . iim, jjphy_nb,nhori,lmaxm1,1,lmaxm1,nvert,32, 121 132 . "ave(X)", zcals(n),zout_isccp(n)) 122 133 ENDDO … … 124 135 CALL histdef(nid_isccp, "nsunlit"//typinout(n), 125 136 . "Nb of calls with sunlit ", "%", 126 . iim, jj mp1,nhori,1,1,1,-99,32,137 . iim, jjphy_nb,nhori,1,1,1,-99,32, 127 138 . "ave(X)", zcals(n),zout_isccp(n)) 128 139 c … … 140 151 CALL histdef(nid_isccp, pclev(l)//taulev(k)//typinout(n), 141 152 . "LMDZ ISCCP cld "//cnameisccp(l,k), "%", 142 . iim, jj mp1,nhori,1,1,1,-99,32,153 . iim, jjphy_nb,nhori,1,1,1,-99,32, 143 154 . "ave(X)", zcals(n),zout_isccp(n)) 144 155 c … … 149 160 CALL histdef(nid_isccp, "nsunlit"//typinout(n), 150 161 . "Nb of calls with sunlit ", "%", 151 . iim, jj mp1,nhori,1,1,1,-99,32,162 . iim, jjphy_nb,nhori,1,1,1,-99,32, 152 163 . "ave(X)", zcals(n),zout_isccp(n)) 153 164 c … … 155 166 CALL histdef(nid_isccp, "cirr", 156 167 . "Cirrus lk ISCCP-D2", "%", 157 . iim, jj mp1,nhori,1,1,1,-99,32,168 . iim, jjphy_nb,nhori,1,1,1,-99,32, 158 169 . "ave(X)", zcals(n),zout_isccp(n)) 159 170 c 160 171 CALL histdef(nid_isccp, "cist", 161 172 . "CiSt lk ISCCP-D2", "%", 162 . iim, jj mp1,nhori,1,1,1,-99,32,173 . iim, jjphy_nb,nhori,1,1,1,-99,32, 163 174 . "ave(X)", zcals(n),zout_isccp(n)) 164 175 c 165 176 CALL histdef(nid_isccp, "deep", 166 177 . "Deep lk ISCCP-D2", "%", 167 . iim, jj mp1,nhori,1,1,1,-99,32,178 . iim, jjphy_nb,nhori,1,1,1,-99,32, 168 179 . "ave(X)", zcals(n),zout_isccp(n)) 169 180 c 170 181 CALL histdef(nid_isccp, "alcu", 171 182 . "AlCu lk ISCCP-D2", "%", 172 . iim, jj mp1,nhori,1,1,1,-99,32,183 . iim, jjphy_nb,nhori,1,1,1,-99,32, 173 184 . "ave(X)", zcals(n),zout_isccp(n)) 174 185 c 175 186 CALL histdef(nid_isccp, "alst", 176 187 . "AlSt lk ISCCP-D2", "%", 177 . iim, jj mp1,nhori,1,1,1,-99,32,188 . iim, jjphy_nb,nhori,1,1,1,-99,32, 178 189 . "ave(X)", zcals(n),zout_isccp(n)) 179 190 c 180 191 CALL histdef(nid_isccp, "nist", 181 192 . "NiSt lk ISCCP-D2", "%", 182 . iim, jj mp1,nhori,1,1,1,-99,32,193 . iim, jjphy_nb,nhori,1,1,1,-99,32, 183 194 . "ave(X)", zcals(n),zout_isccp(n)) 184 195 c 185 196 CALL histdef(nid_isccp, "cumu", 186 197 . "Cumu lk ISCCP-D2", "%", 187 . iim, jj mp1,nhori,1,1,1,-99,32,198 . iim, jjphy_nb,nhori,1,1,1,-99,32, 188 199 . "ave(X)", zcals(n),zout_isccp(n)) 189 200 c 190 201 CALL histdef(nid_isccp, "stcu", 191 202 . "StCu lk ISCCP-D2", "%", 192 . iim, jj mp1,nhori,1,1,1,-99,32,203 . iim, jjphy_nb,nhori,1,1,1,-99,32, 193 204 . "ave(X)", zcals(n),zout_isccp(n)) 194 205 c 195 206 CALL histdef(nid_isccp, "stra", 196 207 . "Stra lk ISCCP-D2", "%", 197 . iim, jj mp1,nhori,1,1,1,-99,32,208 . iim, jjphy_nb,nhori,1,1,1,-99,32, 198 209 . "ave(X)", zcals(n),zout_isccp(n)) 199 210 c … … 201 212 CALL histdef(nid_isccp, "thin", 202 213 . "Opt. thin ISCCP-D2 like clouds", "%", 203 . iim, jj mp1,nhori,lmax3,1,lmax3,nvert3,32,214 . iim, jjphy_nb,nhori,lmax3,1,lmax3,nvert3,32, 204 215 . "ave(X)", zcals(n),zout_isccp(n)) 205 216 c 206 217 CALL histdef(nid_isccp, "mid", 207 218 . "Opt. intermediate ISCCP-D2 like clouds", "%", 208 . iim, jj mp1,nhori,lmax3,1,lmax3,nvert3,32,219 . iim, jjphy_nb,nhori,lmax3,1,lmax3,nvert3,32, 209 220 . "ave(X)", zcals(n),zout_isccp(n)) 210 221 c 211 222 CALL histdef(nid_isccp, "thick", 212 223 . "Opt. thick ISCCP-D2 like clouds", "%", 213 . iim, jj mp1,nhori,lmax3,1,lmax3,nvert3,32,224 . iim, jjphy_nb,nhori,lmax3,1,lmax3,nvert3,32, 214 225 . "ave(X)", zcals(n),zout_isccp(n)) 215 226 c … … 224 235 CALL histdef(nid_isccp,"boxptop"//verticaxe(n), 225 236 . "Boxptop axe"//verticaxe(n), "mb", 226 . iim, jj mp1,nhori,237 . iim, jjphy_nb,nhori, 227 238 . ncol(n),1,ncol(n),nvlev(n),32, 228 239 cIM . ncolmx,1,ncolmx,nvlev,32, … … 237 248 CALL histdef(nid_isccp, "seed"//verticaxe(n), 238 249 . "seed axe"//verticaxe(n), "-", 239 . iim, jj mp1,nhori,1,1,1,-99,32,250 . iim, jjphy_nb,nhori,1,1,1,-99,32, 240 251 cIM . "inst(X)", dtime,dtime) 241 252 . "ave(X)", zcals(n),zout_isccp(n))
Note: See TracChangeset
for help on using the changeset viewer.
