Changeset 2344 for LMDZ5/trunk/libf/phylmd/write_histday_seri.h
- Timestamp:
- Aug 21, 2015, 9:23:13 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/write_histday_seri.h
r2343 r2344 24 24 zx_tmp_fi2d(1:klon)=moyglo 25 25 ! 26 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)26 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 27 27 CALL histwrite(nid_day_seri,"bilTOA",itau_w, & 28 zx_tmp_2d, iim*jjmp1,ndex2d)28 zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 29 29 ! 30 30 ok_msk=.FALSE. … … 33 33 zx_tmp_fi2d(1:klon)=moyglo 34 34 ! 35 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)35 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 36 36 CALL histwrite(nid_day_seri,"bils",itau_w, & 37 zx_tmp_2d, iim*jjmp1,ndex2d)37 zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 38 38 ! 39 39 DO k=1, klev … … 48 48 zx_tmp_fi2d(1:klon)=moyglo 49 49 ! 50 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)50 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 51 51 CALL histwrite(nid_day_seri,"ecin",itau_w, & 52 zx_tmp_2d, iim*jjmp1,ndex2d)52 zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 53 53 ! 54 54 !IM 151004 BEG … … 65 65 zx_tmp_fi2d(1:klon)=moyglo 66 66 ! 67 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)67 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 68 68 CALL histwrite(nid_day_seri,"momang",itau_w,zx_tmp_2d, & 69 iim*jjmp1,ndex2d)69 nbp_lon*nbp_lat,ndex2d) 70 70 ! 71 71 ! friction torque … … 80 80 zx_tmp_fi2d(1:klon)=moyglo 81 81 ! 82 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)82 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 83 83 CALL histwrite(nid_day_seri,"frictor",itau_w,zx_tmp_2d, & 84 iim*jjmp1,ndex2d)84 nbp_lon*nbp_lat,ndex2d) 85 85 ! 86 86 ! mountain torque 87 87 ! 88 88 !IM 190504 BEG 89 CALL gr_fi_dyn(1,klon, iim+1,jjm+1,airephy,airedyn)90 CALL gr_fi_dyn(klev+1,klon, iim+1,jjm+1,paprs,padyn)91 CALL gr_fi_dyn(1,klon, iim+1,jjm+1,rlat,rlatdyn)89 CALL gr_fi_dyn(1,klon,nbp_lon+1,nbp_lat,airephy,airedyn) 90 CALL gr_fi_dyn(klev+1,klon,nbp_lon+1,nbp_lat,paprs,padyn) 91 CALL gr_fi_dyn(1,klon,nbp_lon+1,nbp_lat,rlat,rlatdyn) 92 92 mountor=0. 93 93 airetot=0. 94 DO j = 1, jjmp195 DO i = 1, iim+196 ij=i+( iim+1)*(j-1)94 DO j = 1, nbp_lat 95 DO i = 1, nbp_lon+1 96 ij=i+(nbp_lon+1)*(j-1) 97 97 zx_tmp(ij)=0. 98 98 DO k = 1, klev … … 113 113 ! 114 114 !IM 190504 END 115 zx_tmp_2d(1: iim,1:jjmp1)=mountor115 zx_tmp_2d(1:nbp_lon,1:nbp_lat)=mountor 116 116 CALL histwrite(nid_day_seri,"mountor",itau_w,zx_tmp_2d, & 117 iim*jjmp1,ndex2d)117 nbp_lon*nbp_lat,ndex2d) 118 118 ! 119 119 ENDIF !(1.EQ.0) THEN 120 120 ! 121 121 ! 122 CALL gr_fi_dyn(1,klon, iim+1,jjm+1,airephy,airedyn)123 CALL gr_fi_ecrit(1,klon, iim,jjmp1,airephy,zx_tmp_2d)122 CALL gr_fi_dyn(1,klon,nbp_lon+1,nbp_lat,airephy,airedyn) 123 CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,airephy,zx_tmp_2d) 124 124 airetot=0. 125 ! DO j = 1, jjmp1126 ! DO i = 1, iim+1127 ! ij=i+( iim+1)*(j-1)125 ! DO j = 1, nbp_lat 126 ! DO i = 1, nbp_lon+1 127 ! ij=i+(nbp_lon+1)*(j-1) 128 128 ! DO k = 1, klev 129 129 ! airetot=airetot+airedyn(i,j) … … 139 139 ! 140 140 airetot=0. 141 DO j=1, jjmp1142 DO i=1, iim141 DO j=1, nbp_lat 142 DO i=1, nbp_lon 143 143 airetot=airetot+zx_tmp_2d(i,j) 144 144 ENDDO … … 149 149 ! 150 150 zx_tmp_fi2d(1:klon)=aam/airetot 151 CALL gr_fi_ecrit(1,klon, iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)151 CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d) 152 152 CALL histwrite(nid_day_seri,"momang",itau_w,zx_tmp_2d, & 153 iim*jjmp1,ndex2d)153 nbp_lon*nbp_lat,ndex2d) 154 154 ! 155 155 zx_tmp_fi2d(1:klon)=torsfc/airetot 156 CALL gr_fi_ecrit(1,klon, iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)156 CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d) 157 157 CALL histwrite(nid_day_seri,"torsfc",itau_w,zx_tmp_2d, & 158 iim*jjmp1,ndex2d)158 nbp_lon*nbp_lat,ndex2d) 159 159 ! 160 160 !IM 151004 END … … 164 164 zx_tmp_fi2d(1:klon)=moyglo 165 165 ! 166 CALL gr_fi_ecrit(1,klon, iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)166 CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d) 167 167 CALL histwrite(nid_day_seri,"tamv",itau_w, & 168 zx_tmp_2d, iim*jjmp1,ndex2d)168 zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 169 169 ! 170 170 ok_msk=.FALSE. … … 173 173 zx_tmp_fi2d(1:klon)=moyglo 174 174 ! 175 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)175 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 176 176 CALL histwrite(nid_day_seri,"psol",itau_w, & 177 zx_tmp_2d, iim*jjmp1,ndex2d)177 zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 178 178 ! 179 179 ok_msk=.FALSE. … … 182 182 zx_tmp_fi2d(1:klon)=moyglo 183 183 ! 184 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)184 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d) 185 185 CALL histwrite(nid_day_seri,"evap",itau_w, & 186 zx_tmp_2d, iim*jjmp1,ndex2d)186 zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 187 187 ! 188 188 ! DO i=1, klon … … 196 196 ! zx_tmp_fi2d(1:klon)=moyglo 197 197 ! 198 ! CALL gr_fi_ecrit(1, klon, iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)198 ! CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d) 199 199 ! CALL histwrite(nid_day_seri,"SnowFrac", 200 ! . itau_w,zx_tmp_2d, iim*jjmp1,ndex2d)200 ! . itau_w,zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 201 201 ! 202 202 ! DO i=1, klon … … 212 212 ! zx_tmp_fi2d(1:klon)=moyglo 213 213 ! 214 ! CALL gr_fi_ecrit(1, klon, iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)214 ! CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d) 215 215 ! CALL histwrite(nid_day_seri,"snow_depth",itau_w, 216 ! . zx_tmp_2d, iim*jjmp1,ndex2d)216 ! . zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 217 217 ! 218 218 DO i=1, klon … … 226 226 zx_tmp_fi2d(1:klon)=moyglo 227 227 ! 228 CALL gr_fi_ecrit(1, klon, iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)228 CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d, zx_tmp_2d) 229 229 CALL histwrite(nid_day_seri,"tsol_"//clnsurf(is_oce), & 230 itau_w,zx_tmp_2d, iim*jjmp1,ndex2d)230 itau_w,zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 231 231 ! 232 232 !=================================================================
Note: See TracChangeset
for help on using the changeset viewer.