Changeset 766 for LMDZ4/trunk/libf/phylmd/write_histmth.h
- Timestamp:
- Jun 4, 2007, 4:34:47 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/write_histmth.h
r684 r766 16 16 c Champs 2D: 17 17 c 18 CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)19 CALL histwrite (nid_mth,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)18 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d) 19 CALL histwrite_phy(nid_mth,"phis",itau_w,pphis) 20 20 C 21 21 cIM 310804 CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d) 22 CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)23 CALL histwrite (nid_mth,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)22 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d) 23 CALL histwrite_phy(nid_mth,"aire",itau_w,airephy) 24 24 c 25 25 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100. 26 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)27 CALL histwrite (nid_mth,"pourc_"//clnsurf(is_ter),itau_w,28 $ zx_tmp_2d,iim*jjmp1,ndex2d)26 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 27 CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_ter),itau_w, 28 $ zx_tmp_fi2d) 29 29 c 30 30 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter) 31 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)32 CALL histwrite (nid_mth,"fract_"//clnsurf(is_ter),itau_w,33 $ zx_tmp_2d,iim*jjmp1,ndex2d)34 c 35 CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)36 CALL histwrite (nid_mth,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)31 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 32 CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_ter),itau_w, 33 $ zx_tmp_fi2d) 34 c 35 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) 36 CALL histwrite_phy(nid_mth,"slp",itau_w,slp) 37 37 38 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)39 CALL histwrite (nid_mth,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)40 c 41 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)42 CALL histwrite (nid_mth,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)38 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) 39 CALL histwrite_phy(nid_mth,"tsol",itau_w,zxtsol) 40 c 41 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) 42 CALL histwrite_phy(nid_mth,"t2m",itau_w,zt2m) 43 43 c 44 44 c ENSEMBLES BEG 45 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 46 CALL histwrite(nid_mth,"t2m_min",itau_w,zx_tmp_2d, 47 . iim*jjmp1,ndex2d) 48 c 49 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 50 CALL histwrite(nid_mth,"t2m_max",itau_w,zx_tmp_2d, 51 . iim*jjmp1,ndex2d) 45 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 46 CALL histwrite_phy(nid_mth,"t2m_min",itau_w,zt2m) 47 c 48 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 49 CALL histwrite_phy(nid_mth,"t2m_max",itau_w,zt2m) 52 50 c 53 51 c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsoil(:,1,is_ter),zx_tmp_2d) 54 52 c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsol(:,is_ter),zx_tmp_2d) 55 53 c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ztsol,zx_tmp_2d) 56 c CALL histwrite (nid_mth,"tsoil",itau_w,zx_tmp_2d,54 c CALL histwrite_phy(nid_mth,"tsoil",itau_w,zx_tmp_2d, 57 55 c . iim*jjmp1,ndex2d) 58 56 c … … 60 58 zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) 61 59 ENDDO 62 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 63 CALL histwrite(nid_mth,"wind10m",itau_w,zx_tmp_2d, 64 $ iim*jjmp1,ndex2d) 60 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 61 CALL histwrite_phy(nid_mth,"wind10m",itau_w,zx_tmp_fi2d) 65 62 c 66 63 DO i = 1, klon 67 64 zx_tmp_fi2d(i) = pctsrf(i,is_sic) 68 65 ENDDO 69 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)70 CALL histwrite (nid_mth,"sicf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)66 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 67 CALL histwrite_phy(nid_mth,"sicf",itau_w,zx_tmp_fi2d) 71 68 c 72 69 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) 73 c CALL histwrite (nid_mth,"temp",itau_w,zx_tmp_3d,70 c CALL histwrite_phy(nid_mth,"temp",itau_w,zx_tmp_3d, 74 71 c . iim*jjmp1*klev,ndex3d) 75 72 c 76 73 c ENSEMBLES END 77 74 c 78 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d)79 CALL histwrite (nid_mth,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)80 c 81 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d)82 CALL histwrite (nid_mth,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)83 C 84 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d)85 CALL histwrite (nid_mth,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)75 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) 76 CALL histwrite_phy(nid_mth,"q2m",itau_w,zq2m) 77 c 78 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) 79 CALL histwrite_phy(nid_mth,"u10m",itau_w,zu10m) 80 C 81 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) 82 CALL histwrite_phy(nid_mth,"v10m",itau_w,zv10m) 86 83 C 87 84 DO i = 1, klon 88 85 zx_tmp_fi2d(i) = paprs(i,1) 89 86 ENDDO 90 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)91 CALL histwrite (nid_mth,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)92 c 93 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d)94 CALL histwrite (nid_mth,"qsurf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)87 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 88 CALL histwrite_phy(nid_mth,"psol",itau_w,zx_tmp_fi2d) 89 c 90 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d) 91 CALL histwrite_phy(nid_mth,"qsurf",itau_w,zxqsurf) 95 92 c 96 93 if (.not. ok_veget) then 97 CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d) 98 CALL histwrite(nid_mth,"qsol",itau_w,zx_tmp_2d,iim*jjmp1 99 $ ,ndex2d) 94 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d) 95 CALL histwrite_phy(nid_mth,"qsol",itau_w,qsol) 100 96 endif 101 97 c … … 103 99 zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) 104 100 ENDDO 105 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 106 CALL histwrite(nid_mth,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 107 c 108 CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d) 109 CALL histwrite(nid_mth,"ndayrain",itau_w,zx_tmp_2d, 110 $ iim*jjmp1,ndex2d) 101 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 102 CALL histwrite_phy(nid_mth,"precip",itau_w,zx_tmp_fi2d) 103 c 104 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d) 105 CALL histwrite_phy(nid_mth,"ndayrain",itau_w,nday_rain) 111 106 c 112 107 DO i = 1, klon 113 108 zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i) 114 109 ENDDO 115 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)116 CALL histwrite (nid_mth,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)110 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 111 CALL histwrite_phy(nid_mth,"plul",itau_w,zx_tmp_fi2d) 117 112 c 118 113 DO i = 1, klon 119 114 zx_tmp_fi2d(i) = rain_con(i) + snow_con(i) 120 115 ENDDO 121 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)122 CALL histwrite (nid_mth,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)123 c 124 CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)125 CALL histwrite (nid_mth,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)116 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 117 CALL histwrite_phy(nid_mth,"pluc",itau_w,zx_tmp_fi2d) 118 c 119 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d) 120 CALL histwrite_phy(nid_mth,"snow",itau_w,snow_fall) 126 121 c 127 122 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) … … 129 124 c . ndex2d) 130 125 c 131 CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)132 CALL histwrite (nid_mth,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)133 c 134 CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)135 CALL histwrite (nid_mth,"tops",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)136 c 137 CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d)138 CALL histwrite (nid_mth,"tops0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)139 c 140 CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)141 CALL histwrite (nid_mth,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)142 c 143 CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d)144 CALL histwrite (nid_mth,"topl0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)126 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d) 127 CALL histwrite_phy(nid_mth,"evap",itau_w,evap) 128 c 129 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d) 130 CALL histwrite_phy(nid_mth,"tops",itau_w,topsw) 131 c 132 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d) 133 CALL histwrite_phy(nid_mth,"tops0",itau_w,topsw0) 134 c 135 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) 136 CALL histwrite_phy(nid_mth,"topl",itau_w,toplw) 137 c 138 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d) 139 CALL histwrite_phy(nid_mth,"topl0",itau_w,toplw0) 145 140 c 146 141 zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 ) 147 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)148 CALL histwrite (nid_mth, "SWupTOA",itau_w,zx_tmp_2d,149 . iim*jjmp1,ndex2d) 142 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 143 CALL histwrite_phy(nid_mth, "SWupTOA",itau_w,zx_tmp_fi2d) 144 c 150 145 c 151 146 zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, klevp1 ) 152 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 153 CALL histwrite(nid_mth, "SWupTOAclr",itau_w,zx_tmp_2d, 154 . iim*jjmp1,ndex2d) 147 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 148 CALL histwrite_phy(nid_mth, "SWupTOAclr",itau_w,zx_tmp_fi2d) 155 149 c 156 150 zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 ) 157 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 158 CALL histwrite(nid_mth, "SWdnTOA",itau_w,zx_tmp_2d, 159 . iim*jjmp1,ndex2d) 151 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 152 CALL histwrite_phy(nid_mth, "SWdnTOA",itau_w,zx_tmp_fi2d) 160 153 c 161 154 zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, klevp1 ) 162 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 163 CALL histwrite(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_2d, 164 . iim*jjmp1,ndex2d) 165 c 166 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d) 167 CALL histwrite(nid_mth,"SWup200",itau_w,zx_tmp_2d, 168 $ iim*jjmp1,ndex2d) 169 c 170 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d) 171 CALL histwrite(nid_mth,"SWup200clr",itau_w,zx_tmp_2d, 172 $ iim*jjmp1,ndex2d) 173 c 174 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d) 175 CALL histwrite(nid_mth,"SWdn200",itau_w,zx_tmp_2d, 176 $ iim*jjmp1,ndex2d) 177 c 178 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d) 179 CALL histwrite(nid_mth,"SWdn200clr",itau_w,zx_tmp_2d, 180 $ iim*jjmp1,ndex2d) 181 c 182 CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d) 183 CALL histwrite(nid_mth,"LWup200",itau_w,zx_tmp_2d, 184 $ iim*jjmp1,ndex2d) 185 c 186 CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d) 187 CALL histwrite(nid_mth,"LWup200clr",itau_w,zx_tmp_2d, 188 $ iim*jjmp1,ndex2d) 155 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 156 CALL histwrite_phy(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_fi2d) 157 c 158 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d) 159 CALL histwrite_phy(nid_mth,"SWup200",itau_w,SWup200) 160 c 161 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d) 162 CALL histwrite_phy(nid_mth,"SWup200clr",itau_w,SWup200clr) 163 c 164 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d) 165 CALL histwrite_phy(nid_mth,"SWdn200",itau_w,SWdn200) 166 c 167 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d) 168 CALL histwrite_phy(nid_mth,"SWdn200clr",itau_w,SWdn200clr) 169 c 170 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d) 171 CALL histwrite_phy(nid_mth,"LWup200",itau_w,LWup200) 172 c 173 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d) 174 CALL histwrite_phy(nid_mth,"LWup200clr",itau_w,LWup200clr) 189 175 c 190 176 zx_tmp_fi2d(1:klon)=-1*LWdn200(1:klon) 191 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 192 CALL histwrite(nid_mth,"LWdn200",itau_w,zx_tmp_2d, 193 $ iim*jjmp1,ndex2d) 177 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 178 CALL histwrite_phy(nid_mth,"LWdn200",itau_w,zx_tmp_fi2d) 194 179 c 195 180 zx_tmp_fi2d(1:klon)=-1*LWdn200clr(1:klon) 196 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 197 CALL histwrite(nid_mth,"LWdn200clr",itau_w,zx_tmp_2d, 198 $ iim*jjmp1,ndex2d) 181 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 182 CALL histwrite_phy(nid_mth,"LWdn200clr",itau_w,zx_tmp_fi2d) 199 183 c 200 184 c200 END 201 CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)202 CALL histwrite (nid_mth,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)203 c 204 CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d)205 CALL histwrite (nid_mth,"sols0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)206 c 207 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)208 CALL histwrite (nid_mth,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)209 c 210 CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d)211 CALL histwrite (nid_mth,"radsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)212 c 213 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d)214 CALL histwrite (nid_mth,"soll0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)185 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d) 186 CALL histwrite_phy(nid_mth,"sols",itau_w,solsw) 187 c 188 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d) 189 CALL histwrite_phy(nid_mth,"sols0",itau_w,solsw0) 190 c 191 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d) 192 CALL histwrite_phy(nid_mth,"soll",itau_w,sollw) 193 c 194 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d) 195 CALL histwrite_phy(nid_mth,"radsol",itau_w,radsol) 196 c 197 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d) 198 CALL histwrite_phy(nid_mth,"soll0",itau_w,sollw0) 215 199 c 216 200 c zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1) 217 201 zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 ) 218 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 219 CALL histwrite(nid_mth, "SWupSFC",itau_w,zx_tmp_2d, 220 . iim*jjmp1,ndex2d) 202 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 203 CALL histwrite_phy(nid_mth, "SWupSFC",itau_w,zx_tmp_fi2d) 221 204 c 222 205 c zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1) 223 206 zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 ) 224 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 225 CALL histwrite(nid_mth, "SWupSFCclr",itau_w,zx_tmp_2d, 226 . iim*jjmp1,ndex2d) 207 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 208 CALL histwrite_phy(nid_mth, "SWupSFCclr",itau_w,zx_tmp_fi2d) 227 209 c 228 210 c zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1) 229 211 zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 ) 230 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 231 CALL histwrite(nid_mth, "SWdnSFC",itau_w,zx_tmp_2d, 232 . iim*jjmp1,ndex2d) 212 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 213 CALL histwrite_phy(nid_mth, "SWdnSFC",itau_w,zx_tmp_fi2d) 233 214 c 234 215 c zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1) 235 216 zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 ) 236 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 237 CALL histwrite(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_2d, 238 . iim*jjmp1,ndex2d) 217 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 218 CALL histwrite_phy(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_fi2d) 239 219 c 240 220 cIM 080904 zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon) 241 221 cIM 130904 zx_tmp_fi2d(1:klon)=sollw(1:klon)-sollwdown(1:klon) 242 222 zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) 243 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 244 CALL histwrite(nid_mth,"LWupSFC",itau_w,zx_tmp_2d,iim*jjmp1, 245 . ndex2d) 223 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 224 CALL histwrite_phy(nid_mth,"LWupSFC",itau_w,zx_tmp_fi2d) 246 225 c 247 226 DO i=1, klon … … 252 231 cIM 130904 zx_tmp_fi2d(1:klon)=sollw0(1:klon)-sollwdownclr(1:klon) 253 232 zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon) 254 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 255 CALL histwrite(nid_mth,"LWupSFCclr",itau_w,zx_tmp_2d,iim*jjmp1, 256 . ndex2d) 257 c 258 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) 259 CALL histwrite(nid_mth,"LWdnSFC",itau_w,zx_tmp_2d,iim*jjmp1, 260 . ndex2d) 233 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 234 CALL histwrite_phy(nid_mth,"LWupSFCclr",itau_w,zx_tmp_fi2d) 235 c 236 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) 237 CALL histwrite_phy(nid_mth,"LWdnSFC",itau_w,sollwdown) 261 238 c 262 239 c DO i=1, klon … … 265 242 c ENDDO !i=1, klon 266 243 c 267 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) 268 CALL histwrite(nid_mth,"LWdnSFCclr",itau_w,zx_tmp_2d, 269 $ iim*jjmp1,ndex2d) 270 c 271 CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) 272 CALL histwrite(nid_mth,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 244 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) 245 CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr) 246 c 247 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) 248 CALL histwrite_phy(nid_mth,"bils",itau_w,bils) 273 249 c 274 250 zx_tmp_fi2d(1:klon)=-1*sens(1:klon) 275 251 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d) 276 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)277 CALL histwrite (nid_mth,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)278 c 279 CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)280 CALL histwrite (nid_mth,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)252 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 253 CALL histwrite_phy(nid_mth,"sens",itau_w,zx_tmp_fi2d) 254 c 255 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) 256 CALL histwrite_phy(nid_mth,"fder",itau_w,fder) 281 257 c 282 258 c … … 294 270 c 295 271 c 296 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) 297 CALL histwrite(nid_mth,"ffonte",itau_w,zx_tmp_2d,iim*jjmp1, 298 $ ndex2d) 299 c 300 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d) 301 CALL histwrite(nid_mth,"fqcalving",itau_w,zx_tmp_2d,iim*jjmp1, 302 $ ndex2d) 303 c 272 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) 273 CALL histwrite_phy(nid_mth,"ffonte",itau_w,zxffonte) 274 c 275 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d) 276 CALL histwrite_phy(nid_mth,"fqcalving",itau_w,zxfqcalving) 277 278 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqfonte,zx_tmp_2d) 279 CALL histwrite_phy(nid_mth,"fqfonte",itau_w,zxfqfonte) 280 304 281 DO nsrf = 1, nbsrf 305 282 zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf) 306 307 CALL histwrite (nid_mth,"taux_"//clnsurf(nsrf),itau_w,308 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)283 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 284 CALL histwrite_phy(nid_mth,"taux_"//clnsurf(nsrf),itau_w, 285 $ zx_tmp_fi2d) 309 286 C 310 287 zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf) 311 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)312 CALL histwrite (nid_mth,"tauy_"//clnsurf(nsrf),itau_w,313 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)288 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 289 CALL histwrite_phy(nid_mth,"tauy_"//clnsurf(nsrf),itau_w, 290 $ zx_tmp_fi2d) 314 291 ENDDO 315 292 c … … 318 295 IF(nsrf.GT.2) THEN 319 296 zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100. 320 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)321 CALL histwrite (nid_mth,"pourc_"//clnsurf(nsrf),itau_w,322 $ zx_tmp_2d,iim*jjmp1,ndex2d)297 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 298 CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(nsrf),itau_w, 299 & zx_tmp_fi2d) 323 300 c 324 301 zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf) 325 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)326 CALL histwrite (nid_mth,"fract_"//clnsurf(nsrf),itau_w,327 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)302 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 303 CALL histwrite_phy(nid_mth,"fract_"//clnsurf(nsrf),itau_w, 304 $ zx_tmp_fi2d) 328 305 ENDIF !nsrf.GT.2 329 306 C 330 307 zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf) 331 332 CALL histwrite (nid_mth,"tsol_"//clnsurf(nsrf),itau_w,333 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)308 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 309 CALL histwrite_phy(nid_mth,"tsol_"//clnsurf(nsrf),itau_w, 310 $ zx_tmp_fi2d) 334 311 C 335 312 zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf) 336 337 CALL histwrite (nid_mth,"sens_"//clnsurf(nsrf),itau_w,338 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)313 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 314 CALL histwrite_phy(nid_mth,"sens_"//clnsurf(nsrf),itau_w, 315 $ zx_tmp_fi2d) 339 316 C 340 317 zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf) 341 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)342 CALL histwrite (nid_mth,"lat_"//clnsurf(nsrf),itau_w,343 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)318 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 319 CALL histwrite_phy(nid_mth,"lat_"//clnsurf(nsrf),itau_w, 320 $ zx_tmp_fi2d) 344 321 C 345 322 zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf) 346 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)347 CALL histwrite (nid_mth,"flw_"//clnsurf(nsrf),itau_w,348 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)323 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 324 CALL histwrite_phy(nid_mth,"flw_"//clnsurf(nsrf),itau_w, 325 $ zx_tmp_fi2d) 349 326 c 350 327 zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf) 351 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)352 CALL histwrite (nid_mth,"fsw_"//clnsurf(nsrf),itau_w,353 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)328 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 329 CALL histwrite_phy(nid_mth,"fsw_"//clnsurf(nsrf),itau_w, 330 $ zx_tmp_fi2d) 354 331 C 355 332 zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf) 356 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)357 CALL histwrite (nid_mth,"wbils_"//clnsurf(nsrf),itau_w,358 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)333 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 334 CALL histwrite_phy(nid_mth,"wbils_"//clnsurf(nsrf),itau_w, 335 $ zx_tmp_fi2d) 359 336 C 360 337 zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf) 361 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)362 CALL histwrite (nid_mth,"wbilo_"//clnsurf(nsrf),itau_w,363 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)338 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 339 CALL histwrite_phy(nid_mth,"wbilo_"//clnsurf(nsrf),itau_w, 340 $ zx_tmp_fi2d) 364 341 C 365 342 IF(1.EQ.0) THEN 366 343 C 367 344 zx_tmp_fi2d(1:klon) = fevap(1:klon,nsrf)*pctsrf(1:klon,nsrf) 368 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)369 CALL histwrite (nid_mth,"evapour_"//clnsurf(nsrf),itau_w,370 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)345 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 346 CALL histwrite_phy(nid_mth,"evapour_"//clnsurf(nsrf),itau_w, 347 $ zx_tmp_fi2d) 371 348 C 372 349 zx_tmp_fi2d(1:klon) = (rain_fall(1:klon) + snow_fall(1:klon)) 373 350 $ *pctsrf(1:klon,nsrf) 374 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)375 CALL histwrite (nid_mth,"prepour_"//clnsurf(nsrf),itau_w,376 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)351 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 352 CALL histwrite_phy(nid_mth,"prepour_"//clnsurf(nsrf),itau_w, 353 $ zx_tmp_fi2d) 377 354 C 378 355 ENDIF !(1.EQ.0) THEN … … 380 357 END DO 381 358 c 382 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)383 CALL histwrite (nid_mth,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)384 c 385 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)386 CALL histwrite (nid_mth,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)387 c 388 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)389 CALL histwrite (nid_mth,"cldl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)390 c 391 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)392 CALL histwrite (nid_mth,"cldm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)393 c 394 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)395 CALL histwrite (nid_mth,"cldh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)396 c 397 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)398 CALL histwrite (nid_mth,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)399 c 400 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)401 CALL histwrite (nid_mth,"cldq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)359 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) 360 CALL histwrite_phy(nid_mth,"cdrm",itau_w,cdragm) 361 c 362 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) 363 CALL histwrite_phy(nid_mth,"cdrh",itau_w,cdragh) 364 c 365 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d) 366 CALL histwrite_phy(nid_mth,"cldl",itau_w,cldl) 367 c 368 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d) 369 CALL histwrite_phy(nid_mth,"cldm",itau_w,cldm) 370 c 371 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d) 372 CALL histwrite_phy(nid_mth,"cldh",itau_w,cldh) 373 c 374 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) 375 CALL histwrite_phy(nid_mth,"cldt",itau_w,cldt) 376 c 377 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d) 378 CALL histwrite_phy(nid_mth,"cldq",itau_w,cldq) 402 379 c 403 380 zx_tmp_fi2d(1:klon) = flwp(1:klon) 404 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)405 CALL histwrite (nid_mth,"lwp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)381 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 382 CALL histwrite_phy(nid_mth,"lwp",itau_w,zx_tmp_fi2d) 406 383 c 407 384 zx_tmp_fi2d(1:klon) = fiwp(1:klon) 408 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)409 CALL histwrite (nid_mth,"iwp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)410 c 411 CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d)412 CALL histwrite (nid_mth,"ue",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)413 c 414 CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d)415 CALL histwrite (nid_mth,"ve",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)416 c 417 CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d)418 CALL histwrite (nid_mth,"uq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)419 c 420 CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d)421 CALL histwrite (nid_mth,"vq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)385 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 386 CALL histwrite_phy(nid_mth,"iwp",itau_w,zx_tmp_fi2d) 387 c 388 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d) 389 CALL histwrite_phy(nid_mth,"ue",itau_w,ue) 390 c 391 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d) 392 CALL histwrite_phy(nid_mth,"ve",itau_w,ve) 393 c 394 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d) 395 CALL histwrite_phy(nid_mth,"uq",itau_w,uq) 396 c 397 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d) 398 CALL histwrite_phy(nid_mth,"vq",itau_w,vq) 422 399 cKE43 423 400 IF (iflag_con.GE.3) THEN ! sb 424 401 c 425 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d)426 CALL histwrite (nid_mth,"cape",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)427 c 428 CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d)429 CALL histwrite (nid_mth,"pbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)430 c 431 CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d)432 CALL histwrite (nid_mth,"ptop",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)433 c 434 CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d)435 CALL histwrite (nid_mth,"fbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)402 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d) 403 CALL histwrite_phy(nid_mth,"cape",itau_w,cape) 404 c 405 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d) 406 CALL histwrite_phy(nid_mth,"pbase",itau_w,pbase) 407 c 408 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d) 409 CALL histwrite_phy(nid_mth,"ptop",itau_w,ema_pct) 410 c 411 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d) 412 CALL histwrite_phy(nid_mth,"fbase",itau_w,ema_cbmf) 436 413 c 437 414 c34EK 438 415 c 439 CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) 440 CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d, 441 . iim*jjmp1,ndex2d) 416 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) 417 CALL histwrite_phy(nid_mth,"prw",itau_w,prw) 442 418 c 443 419 ENDIF !iflag_con.GE.3 … … 448 424 c 449 425 c 450 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) 451 CALL histwrite(nid_mth,"s_pblh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 452 c 453 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) 454 CALL histwrite(nid_mth,"s_pblt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 455 c 456 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) 457 CALL histwrite(nid_mth,"s_lcl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 458 c 459 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) 460 CALL histwrite(nid_mth,"s_capCL",itau_w,zx_tmp_2d,iim*jjmp1, 461 . ndex2d) 462 c 463 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) 464 CALL histwrite(nid_mth,"s_oliqCL",itau_w,zx_tmp_2d,iim*jjmp1, 465 . ndex2d) 466 c 467 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) 468 CALL histwrite(nid_mth,"s_cteiCL",itau_w,zx_tmp_2d,iim*jjmp1, 469 . ndex2d) 470 c 471 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) 472 CALL histwrite(nid_mth,"s_therm",itau_w,zx_tmp_2d,iim*jjmp1, 473 . ndex2d) 474 c 475 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) 476 CALL histwrite(nid_mth,"s_trmb1",itau_w,zx_tmp_2d,iim*jjmp1, 477 . ndex2d) 478 c 479 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) 480 CALL histwrite(nid_mth,"s_trmb2",itau_w,zx_tmp_2d,iim*jjmp1, 481 . ndex2d) 482 c 483 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) 484 CALL histwrite(nid_mth,"s_trmb3",itau_w,zx_tmp_2d,iim*jjmp1, 485 . ndex2d) 426 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) 427 CALL histwrite_phy(nid_mth,"s_pblh",itau_w,s_pblh) 428 c 429 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) 430 CALL histwrite_phy(nid_mth,"s_pblt",itau_w,s_pblt) 431 c 432 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) 433 CALL histwrite_phy(nid_mth,"s_lcl",itau_w,s_lcl) 434 c 435 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) 436 CALL histwrite_phy(nid_mth,"s_capCL",itau_w,s_capCL) 437 c 438 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) 439 CALL histwrite_phy(nid_mth,"s_oliqCL",itau_w,s_oliqCL) 440 c 441 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) 442 CALL histwrite_phy(nid_mth,"s_cteiCL",itau_w,s_cteiCL) 443 c 444 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) 445 CALL histwrite_phy(nid_mth,"s_therm",itau_w,s_therm) 446 c 447 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) 448 CALL histwrite_phy(nid_mth,"s_trmb1",itau_w,s_trmb1) 449 c 450 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) 451 CALL histwrite_phy(nid_mth,"s_trmb2",itau_w,s_trmb2) 452 c 453 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) 454 CALL histwrite_phy(nid_mth,"s_trmb3",itau_w,s_trmb3) 486 455 c 487 456 cIM cf. AM 081204 END … … 502 471 $ bb2.EQ."500".OR.bb2.EQ."200") THEN 503 472 c 504 CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,2),zx_tmp_2d) 505 CALL histwrite(nid_mth,"u"//bb2,itau_w,zx_tmp_2d, 506 $ iim*jjmp1,ndex2d) 507 c 508 CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,2),zx_tmp_2d) 509 CALL histwrite(nid_mth,"v"//bb2,itau_w,zx_tmp_2d, 510 $ iim*jjmp1,ndex2d) 511 c 512 CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,2),zx_tmp_2d) 513 CALL histwrite(nid_mth,"w"//bb2,itau_w,zx_tmp_2d, 514 $ iim*jjmp1,ndex2d) 515 c 516 CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,2),zx_tmp_2d) 517 CALL histwrite(nid_mth,"phi"//bb2,itau_w,zx_tmp_2d, 518 $ iim*jjmp1,ndex2d) 473 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,2),zx_tmp_2d) 474 CALL histwrite_phy(nid_mth,"u"//bb2,itau_w,usumSTD(:,k,2)) 475 c 476 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,2),zx_tmp_2d) 477 CALL histwrite_phy(nid_mth,"v"//bb2,itau_w,vsumSTD(:,k,2)) 478 c 479 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,2),zx_tmp_2d) 480 CALL histwrite_phy(nid_mth,"w"//bb2,itau_w,wsumSTD(:,k,2)) 481 c 482 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,2),zx_tmp_2d) 483 CALL histwrite_phy(nid_mth,"phi"//bb2,itau_w,phisumSTD(:,k,2)) 519 484 c 520 485 ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR. … … 529 494 ENDDO 530 495 c 531 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 532 CALL histwrite(nid_mth,"fluxo",itau_w,zx_tmp_2d, 533 . iim*jjmp1,ndex2d) 496 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 497 CALL histwrite_phy(nid_mth,"fluxo",itau_w,zx_tmp_fi2d) 534 498 c 535 499 DO i=1, klon … … 541 505 ENDDO 542 506 c 543 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 544 CALL histwrite(nid_mth,"fluxg",itau_w,zx_tmp_2d, 545 . iim*jjmp1,ndex2d) 507 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 508 CALL histwrite_phy(nid_mth,"fluxg",itau_w,zx_tmp_fi2d) 546 509 c 547 510 DO i=1, klon … … 556 519 ENDDO 557 520 c 558 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 559 CALL histwrite(nid_mth,"t_oce_sic",itau_w,zx_tmp_2d, 560 . iim*jjmp1,ndex2d) 521 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 522 CALL histwrite_phy(nid_mth,"t_oce_sic",itau_w,zx_tmp_fi2d) 561 523 c 562 524 IF (OCEAN.EQ.'force ') THEN … … 571 533 ENDIF 572 534 ENDDO 573 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 574 CALL histwrite(nid_mth,"lmt_bils",itau_w, 575 . zx_tmp_2d,iim*jjmp1,ndex2d) 535 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 536 CALL histwrite_phy(nid_mth,"lmt_bils",itau_w,zx_tmp_fi2d) 576 537 c 577 538 ELSE IF (OCEAN.EQ.'slab ') THEN … … 586 547 ENDIF 587 548 ENDDO 588 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 589 CALL histwrite(nid_mth,"slab_bils",itau_w, 590 . zx_tmp_2d,iim*jjmp1,ndex2d) 549 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 550 CALL histwrite_phy(nid_mth,"slab_bils",itau_w,zx_tmp_fi2d) 591 551 c 592 552 DO i=1, klon … … 598 558 ENDIF 599 559 ENDDO !i=1, klon 600 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 601 CALL histwrite(nid_mth,"tslab",itau_w,zx_tmp_2d, 602 . iim*jjmp1,ndex2d) 603 c 604 CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) 605 CALL histwrite(nid_mth,"seaice",itau_w,zx_tmp_2d, 606 . iim*jjmp1,ndex2d) 607 c 608 CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) 609 CALL histwrite(nid_mth,"siceh",itau_w,zx_tmp_2d, 610 . iim*jjmp1,ndex2d) 560 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 561 CALL histwrite_phy(nid_mth,"tslab",itau_w,zx_tmp_fi2d) 562 c 563 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) 564 CALL histwrite_phy(nid_mth,"seaice",itau_w,seaice) 565 c 566 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) 567 CALL histwrite_phy(nid_mth,"siceh",itau_w, seaice/1000.) 611 568 c 612 569 ENDIF !OCEAN.EQ.force/slab … … 619 576 C 620 577 c 621 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) 622 CALL histwrite(nid_mth,"lwcon",itau_w,zx_tmp_3d, 623 . iim*jjmp1*klev,ndex3d) 624 c 625 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) 626 CALL histwrite(nid_mth,"iwcon",itau_w,zx_tmp_3d, 627 . iim*jjmp1*klev,ndex3d) 628 c 629 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) 630 CALL histwrite(nid_mth,"temp",itau_w,zx_tmp_3d, 631 . iim*jjmp1*klev,ndex3d) 578 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) 579 CALL histwrite_phy(nid_mth,"lwcon",itau_w,flwc) 580 c 581 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) 582 CALL histwrite_phy(nid_mth,"iwcon",itau_w,fiwc) 583 c 584 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) 585 CALL histwrite_phy(nid_mth,"temp",itau_w,t_seri) 632 586 c 633 587 c#ifdef histmthNMC … … 635 589 c#endif 636 590 c 637 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) 638 CALL histwrite(nid_mth,"ovap",itau_w,zx_tmp_3d, 639 . iim*jjmp1*klev,ndex3d) 591 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) 592 CALL histwrite_phy(nid_mth,"ovap",itau_w,qx(:,:,ivap)) 640 593 c 641 594 c zx_tmp_fi3d(1:klon,1:klev)=qx(1:klon,1:klev,ivap)/ … … 645 598 c . iim*jjmp1*klev,ndex3d) 646 599 c 647 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) 648 CALL histwrite(nid_mth,"geop",itau_w,zx_tmp_3d, 649 . iim*jjmp1*klev,ndex3d) 650 c 651 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) 652 CALL histwrite(nid_mth,"vitu",itau_w,zx_tmp_3d, 653 . iim*jjmp1*klev,ndex3d) 654 c 655 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) 656 CALL histwrite(nid_mth,"vitv",itau_w,zx_tmp_3d, 657 . iim*jjmp1*klev,ndex3d) 658 c 659 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) 660 CALL histwrite(nid_mth,"vitw",itau_w,zx_tmp_3d, 661 . iim*jjmp1*klev,ndex3d) 662 c 663 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) 664 CALL histwrite(nid_mth,"pres",itau_w,zx_tmp_3d, 665 . iim*jjmp1*klev,ndex3d) 666 c 667 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d) 668 CALL histwrite(nid_mth,"rneb",itau_w,zx_tmp_3d, 669 . iim*jjmp1*klev,ndex3d) 670 c 671 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) 672 CALL histwrite(nid_mth,"rnebcon",itau_w,zx_tmp_3d, 673 . iim*jjmp1*klev,ndex3d) 674 c 675 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d) 676 CALL histwrite(nid_mth,"rhum",itau_w,zx_tmp_3d, 677 . iim*jjmp1*klev,ndex3d) 678 c 600 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) 601 CALL histwrite_phy(nid_mth,"geop",itau_w,zphi) 602 c 603 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) 604 CALL histwrite_phy(nid_mth,"vitu",itau_w,u_seri) 605 c 606 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) 607 CALL histwrite_phy(nid_mth,"vitv",itau_w,v_seri) 608 c 609 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) 610 CALL histwrite_phy(nid_mth,"vitw",itau_w,omega) 611 c 612 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) 613 CALL histwrite_phy(nid_mth,"pres",itau_w,pplay) 614 c 615 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d) 616 CALL histwrite_phy(nid_mth,"rneb",itau_w,cldfra) 617 c 618 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) 619 CALL histwrite_phy(nid_mth,"rnebcon",itau_w,rnebcon) 620 c 621 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d) 622 CALL histwrite_phy(nid_mth,"rhum",itau_w,zx_rh) 623 679 624 DO k=1, klev 680 625 DO i=1, klon … … 691 636 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d) 692 637 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp2_fi3d,zx_tmp_3d) 693 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 694 CALL histwrite(nid_mth,"ozone",itau_w,zx_tmp_3d, 695 . iim*jjmp1*klev,ndex3d) 696 c 697 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d) 698 CALL histwrite(nid_mth,"dtphy",itau_w,zx_tmp_3d, 699 . iim*jjmp1*klev,ndex3d) 700 c 701 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap), 702 . zx_tmp_3d) 703 CALL histwrite(nid_mth,"dqphy",itau_w,zx_tmp_3d, 704 . iim*jjmp1*klev,ndex3d) 638 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 639 CALL histwrite_phy(nid_mth,"ozone",itau_w,zx_tmp_fi3d) 640 c 641 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d) 642 CALL histwrite_phy(nid_mth,"dtphy",itau_w,d_t) 643 c 644 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap), 645 cym . zx_tmp_3d) 646 CALL histwrite_phy(nid_mth,"dqphy",itau_w, d_qx(:,:,ivap)) 647 cIM 22.03.04 END 705 648 c 706 649 ENDIF !lev_histmth.GE.2 … … 711 654 c 712 655 zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf) 713 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)714 CALL histwrite (nid_mth,"albe_"//clnsurf(nsrf),itau_w,715 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)656 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 657 CALL histwrite_phy(nid_mth,"albe_"//clnsurf(nsrf),itau_w, 658 $ zx_tmp_fi2d) 716 659 C 717 660 zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf) 718 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)719 CALL histwrite (nid_mth,"rugs_"//clnsurf(nsrf),itau_w,720 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)661 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 662 CALL histwrite_phy(nid_mth,"rugs_"//clnsurf(nsrf),itau_w, 663 $ zx_tmp_fi2d) 721 664 c 722 665 zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf) 723 CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d)724 CALL histwrite (nid_mth,"ages_"//clnsurf(nsrf),itau_w725 $ ,zx_tmp_ 2d,iim*jjmp1,ndex2d)666 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d) 667 CALL histwrite_phy(nid_mth,"ages_"//clnsurf(nsrf),itau_w 668 $ ,zx_tmp_fi2d) 726 669 c 727 670 ENDDO !nsrf=1, nbsrf 728 671 c 729 CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)730 CALL histwrite (nid_mth,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)731 c 732 CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)733 CALL histwrite (nid_mth,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)672 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d) 673 CALL histwrite_phy(nid_mth,"albs",itau_w,albsol) 674 c 675 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d) 676 CALL histwrite_phy(nid_mth,"albslw",itau_w,albsollw) 734 677 c 735 678 ENDIF !lev_histmth.GE.3 … … 738 681 IF(lev_histmth.GE.4) THEN 739 682 c 740 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) 741 CALL histwrite(nid_mth,"clwcon",itau_w,zx_tmp_3d, 742 . iim*jjmp1*klev,ndex3d) 743 c 683 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) 684 CALL histwrite_phy(nid_mth,"clwcon",itau_w,clwcon0) 685 744 686 IF (iflag_con.GE.3) THEN 745 687 c 746 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) 747 CALL histwrite(nid_mth,"Ma",itau_w,zx_tmp_3d, 748 . iim*jjmp1*klev,ndex3d) 749 c 750 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) 751 CALL histwrite(nid_mth,"upwd",itau_w,zx_tmp_3d, 752 . iim*jjmp1*klev,ndex3d) 753 c 754 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) 755 CALL histwrite(nid_mth,"dnwd",itau_w,zx_tmp_3d, 756 . iim*jjmp1*klev,ndex3d) 757 c 758 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) 759 CALL histwrite(nid_mth,"dnwd0",itau_w,zx_tmp_3d, 760 . iim*jjmp1*klev,ndex3d) 688 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) 689 CALL histwrite_phy(nid_mth,"Ma",itau_w,Ma) 690 c 691 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) 692 CALL histwrite_phy(nid_mth,"upwd",itau_w,upwd) 693 c 694 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) 695 CALL histwrite_phy(nid_mth,"dnwd",itau_w,dnwd) 696 c 697 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) 698 CALL histwrite_phy(nid_mth,"dnwd0",itau_w,dnwd0) 761 699 c 762 700 ENDIF !iflag_con.GE.3 763 701 c 764 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d) 765 CALL histwrite(nid_mth,"dtdyn",itau_w,zx_tmp_3d, 766 . iim*jjmp1*klev,ndex3d) 767 c 768 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d) 769 CALL histwrite(nid_mth,"dqdyn",itau_w,zx_tmp_3d, 770 . iim*jjmp1*klev,ndex3d) 702 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d) 703 CALL histwrite_phy(nid_mth,"dtdyn",itau_w,d_t_dyn) 704 c 705 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d) 706 CALL histwrite_phy(nid_mth,"dqdyn",itau_w,d_q_dyn) 771 707 c 772 708 cIM: 101003 : K/30min ==> K/s 773 709 zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys 774 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 775 CALL histwrite(nid_mth,"dtcon",itau_w,zx_tmp_3d, 776 . iim*jjmp1*klev,ndex3d) 710 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 711 CALL histwrite_phy(nid_mth,"dtcon",itau_w,zx_tmp_fi3d) 777 712 c 778 713 zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys 779 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 780 CALL histwrite(nid_mth,"dqcon",itau_w,zx_tmp_3d, 781 . iim*jjmp1*klev,ndex3d) 714 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 715 CALL histwrite_phy(nid_mth,"dqcon",itau_w,zx_tmp_fi3d) 782 716 c 783 717 cIM: 101003 : K/30min ==> K/s 784 718 zx_tmp_fi3d(1:klon,1:klev)=d_t_lsc(1:klon,1:klev)/pdtphys 785 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)786 CALL histwrite (nid_mth,"dtlsc",itau_w,zx_tmp_3d,787 . iim*jjmp1*klev,ndex3d) 719 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 720 CALL histwrite_phy(nid_mth,"dtlsc",itau_w,zx_tmp_fi3d) 721 cIM: 071003 788 722 cIM: 101003 : K/30min ==> K/s 789 723 zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+ 790 724 . d_t_eva(1:klon,1:klev))/pdtphys 791 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) 792 CALL histwrite(nid_mth,"dtlschr",itau_w,zx_tmp_3d, 793 . iim*jjmp1*klev,ndex3d) 725 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) 726 CALL histwrite_phy(nid_mth,"dtlschr",itau_w,zx_tmp_fi3d) 794 727 c 795 728 zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys 796 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 797 CALL histwrite(nid_mth,"dqlsc",itau_w,zx_tmp_3d, 798 . iim*jjmp1*klev,ndex3d) 729 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 730 CALL histwrite_phy(nid_mth,"dqlsc",itau_w,zx_tmp_fi3d) 799 731 c 800 732 cIM: 101003 : K/30min ==> K/s 801 733 zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys 802 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 803 CALL histwrite(nid_mth,"dtvdf",itau_w,zx_tmp_3d, 804 . iim*jjmp1*klev,ndex3d) 734 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 735 CALL histwrite_phy(nid_mth,"dtvdf",itau_w,zx_tmp_fi3d) 805 736 c 806 737 zx_tmp_fi3d(1:klon,1:klev)=d_q_vdf(1:klon,1:klev)/pdtphys 807 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 808 CALL histwrite(nid_mth,"dqvdf",itau_w,zx_tmp_3d, 809 . iim*jjmp1*klev,ndex3d) 738 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 739 CALL histwrite_phy(nid_mth,"dqvdf",itau_w,zx_tmp_fi3d) 810 740 c 811 741 cIM: 101003 : K/30min ==> K/s 812 742 zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys 813 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 814 CALL histwrite(nid_mth,"dteva",itau_w,zx_tmp_3d, 815 . iim*jjmp1*klev,ndex3d) 743 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 744 CALL histwrite_phy(nid_mth,"dteva",itau_w,zx_tmp_fi3d) 816 745 c 817 746 zx_tmp_fi3d(1:klon,1:klev)=d_q_eva(1:klon,1:klev)/pdtphys 818 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 819 CALL histwrite(nid_mth,"dqeva",itau_w,zx_tmp_3d, 820 . iim*jjmp1*klev,ndex3d) 747 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 748 CALL histwrite_phy(nid_mth,"dqeva",itau_w,zx_tmp_fi3d) 821 749 c 822 750 zpt_conv = 0. 823 751 where (ptconv) zpt_conv = 1. 824 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d) 825 CALL histwrite(nid_mth,"ptconv",itau_w,zx_tmp_3d, 826 . iim*(jjmp1)*klev,ndex3d) 827 c 828 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d) 829 CALL histwrite(nid_mth,"ratqs",itau_w,zx_tmp_3d, 830 . iim*(jjmp1)*klev,ndex3d) 752 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d) 753 CALL histwrite_phy(nid_mth,"ptconv",itau_w,zpt_conv) 754 c 755 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d) 756 CALL histwrite_phy(nid_mth,"ratqs",itau_w,ratqs) 831 757 c 832 758 cIM: 101003 : K/30min ==> K/s 833 759 zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys 834 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 835 CALL histwrite(nid_mth,"dtajs",itau_w,zx_tmp_3d, 836 . iim*jjmp1*klev,ndex3d) 760 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 761 CALL histwrite_phy(nid_mth,"dtajs",itau_w,zx_tmp_fi3d) 837 762 c 838 763 zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys 839 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 840 CALL histwrite(nid_mth,"dqajs",itau_w,zx_tmp_3d, 841 . iim*jjmp1*klev,ndex3d) 764 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 765 CALL histwrite_phy(nid_mth,"dqajs",itau_w,zx_tmp_fi3d) 842 766 c 843 767 cIM: 101003 : K/day ==> K/s 844 768 zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)/RDAY 845 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 846 CALL histwrite(nid_mth,"dtswr",itau_w,zx_tmp_3d, 847 . iim*jjmp1*klev,ndex3d) 769 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 770 CALL histwrite_phy(nid_mth,"dtswr",itau_w,zx_tmp_fi3d) 848 771 c 849 772 cIM: 101003 : K/day ==> K/s 850 773 zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)/RDAY 851 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 852 CALL histwrite(nid_mth,"dtsw0",itau_w,zx_tmp_3d, 853 . iim*jjmp1*klev,ndex3d) 774 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 775 CALL histwrite_phy(nid_mth,"dtsw0",itau_w,zx_tmp_fi3d) 854 776 c 855 777 cIM: 101003 : K/day ==> K/s 856 778 zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)/RDAY 857 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 858 CALL histwrite(nid_mth,"dtlwr",itau_w,zx_tmp_3d, 859 . iim*jjmp1*klev,ndex3d) 779 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 780 CALL histwrite_phy(nid_mth,"dtlwr",itau_w,zx_tmp_fi3d) 860 781 c 861 782 cIM: 101003 : K/day ==> K/s 862 783 zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)/RDAY 863 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 864 CALL histwrite(nid_mth,"dtlw0",itau_w,zx_tmp_3d, 865 . iim*jjmp1*klev,ndex3d) 784 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 785 CALL histwrite_phy(nid_mth,"dtlw0",itau_w,zx_tmp_fi3d) 866 786 c 867 787 cIM: 101003 : deja en K/s 868 788 zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev) 869 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 870 CALL histwrite(nid_mth,"dtec",itau_w,zx_tmp_3d, 871 . iim*jjmp1*klev,ndex3d) 789 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 790 CALL histwrite_phy(nid_mth,"dtec",itau_w,zx_tmp_fi3d) 872 791 c 873 792 zx_tmp_fi3d(1:klon,1:klev)=d_u_vdf(1:klon,1:klev)/pdtphys 874 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 875 CALL histwrite(nid_mth,"duvdf",itau_w,zx_tmp_3d, 876 . iim*jjmp1*klev,ndex3d) 793 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 794 CALL histwrite_phy(nid_mth,"duvdf",itau_w,zx_tmp_fi3d) 877 795 c 878 796 zx_tmp_fi3d(1:klon,1:klev)=d_v_vdf(1:klon,1:klev)/pdtphys 879 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 880 CALL histwrite(nid_mth,"dvvdf",itau_w,zx_tmp_3d, 881 . iim*jjmp1*klev,ndex3d) 797 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 798 CALL histwrite_phy(nid_mth,"dvvdf",itau_w,zx_tmp_fi3d) 882 799 c 883 800 IF (ok_orodr) THEN 884 801 zx_tmp_fi3d(1:klon,1:klev)=d_u_oro(1:klon,1:klev)/pdtphys 885 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 886 CALL histwrite(nid_mth,"duoro",itau_w,zx_tmp_3d, 887 . iim*jjmp1*klev,ndex3d) 802 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 803 CALL histwrite_phy(nid_mth,"duoro",itau_w,zx_tmp_fi3d) 888 804 c 889 805 zx_tmp_fi3d(1:klon,1:klev)=d_v_oro(1:klon,1:klev)/pdtphys 890 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 891 CALL histwrite(nid_mth,"dvoro",itau_w,zx_tmp_3d, 892 . iim*jjmp1*klev,ndex3d) 806 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 807 CALL histwrite_phy(nid_mth,"dvoro",itau_w,zx_tmp_fi3d) 893 808 c 894 809 ENDIF … … 896 811 IF (ok_orolf) THEN 897 812 zx_tmp_fi3d(1:klon,1:klev)=d_u_lif(1:klon,1:klev)/pdtphys 898 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 899 CALL histwrite(nid_mth,"dulif",itau_w,zx_tmp_3d, 900 . iim*jjmp1*klev,ndex3d) 813 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 814 CALL histwrite_phy(nid_mth,"dulif",itau_w,zx_tmp_fi3d) 901 815 c 902 816 zx_tmp_fi3d(1:klon,1:klev)=d_v_lif(1:klon,1:klev)/pdtphys 903 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 904 CALL histwrite(nid_mth,"dvlif",itau_w,zx_tmp_3d, 905 . iim*jjmp1*klev,ndex3d) 817 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 818 CALL histwrite_phy(nid_mth,"dvlif",itau_w,zx_tmp_fi3d) 906 819 ENDIF 907 820 C 908 821 IF (nqmax.GE.3) THEN 909 822 DO iq=3,nqmax 910 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d) 911 CALL histwrite(nid_mth,tnom(iq),itau_w,zx_tmp_3d, 912 . iim*jjmp1*klev,ndex3d) 823 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d) 824 CALL histwrite_phy(nid_mth,tnom(iq),itau_w,qx(:,:,iq)) 913 825 ENDDO 914 826 ENDIF … … 922 834 c Champs 2D: 923 835 c 924 CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis/RG,zx_tmp_2d)925 CALL histwrite (nid_mth,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)836 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis/RG,zx_tmp_2d) 837 CALL histwrite_phy(nid_mth,"phis",itau_w,pphis/RG) 926 838 C 927 839 cIM 310804 CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d) 928 CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)929 CALL histwrite (nid_mth,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)840 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d) 841 CALL histwrite_phy(nid_mth,"aire",itau_w,airephy) 930 842 c 931 843 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100. 932 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d)933 CALL histwrite (nid_mth,"pourc_"//clnsurf(is_ter),itau_w,934 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)844 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) 845 CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_ter),itau_w, 846 $ zx_tmp_fi2d) 935 847 c 936 848 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter) 937 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d)938 CALL histwrite (nid_mth,"fract_"//clnsurf(is_ter),itau_w,939 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)849 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) 850 CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_ter),itau_w, 851 $ zx_tmp_fi2d) 940 852 c 941 853 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_lic)* 100. 942 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d)943 CALL histwrite (nid_mth,"pourc_"//clnsurf(is_lic),itau_w,944 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)854 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) 855 CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_lic),itau_w, 856 $ zx_tmp_fi2d) 945 857 c 946 858 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_lic) 947 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d)948 CALL histwrite (nid_mth,"fract_"//clnsurf(is_lic),itau_w,949 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)859 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) 860 CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_lic),itau_w, 861 $ zx_tmp_fi2d) 950 862 c 951 863 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_sic)* 100. 952 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)953 CALL histwrite (nid_mth,"pourc_"//clnsurf(is_sic),itau_w,954 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)864 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 865 CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_sic),itau_w, 866 $ zx_tmp_fi2d) 955 867 c 956 868 zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_sic) 957 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)958 CALL histwrite (nid_mth,"fract_"//clnsurf(is_sic),itau_w,959 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)960 c 961 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d)962 CALL histwrite (nid_mth,"flat",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)869 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 870 CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_sic),itau_w, 871 $ zx_tmp_fi2d) 872 c 873 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d) 874 CALL histwrite_phy(nid_mth,"flat",itau_w,zxfluxlat) 963 875 c 964 876 zx_tmp_fi2d(1 : klon) = topsw(1:klon)-toplw(1:klon) 965 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 966 CALL histwrite(nid_mth,"bilTOA",itau_w, 967 . zx_tmp_2d,iim*jjmp1,ndex2d) 877 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 878 CALL histwrite_phy(nid_mth,"bilTOA",itau_w,zx_tmp_fi2d) 968 879 c 969 880 c IF(itap.EQ.ecrit_mth) THEN … … 976 887 c ENDDO 977 888 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, tops01,zx_tmp_2d) 978 c CALL histwrite (nid_mth,"tops01",itau_w,zx_tmp_2d,889 c CALL histwrite_phy(nid_mth,"tops01",itau_w,zx_tmp_2d, 979 890 c . iim*jjmp1,ndex2d) 980 891 c ENDIF !itap.EQ.ecrit_mth … … 989 900 ENDDO !l 990 901 c 991 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t,zx_tmp_3d) 992 CALL histwrite(nid_mth,"dtdia",itau_w,zx_tmp_3d, 993 $ iim*jjmp1*klev,ndex3d) 902 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t,zx_tmp_3d) 903 CALL histwrite_phy(nid_mth,"dtdia",itau_w,d_t) 994 904 c 995 905 c temperature tendency due to SW radiation … … 1000 910 ENDDO !l 1001 911 c 1002 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 1003 CALL histwrite(nid_mth,"dtsw",itau_w,zx_tmp_3d, 1004 $ iim*jjmp1*klev,ndex3d) 912 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 913 CALL histwrite_phy(nid_mth,"dtsw",itau_w,zx_tmp_fi3d) 1005 914 c 1006 915 c temperature tendency due to LW radiation … … 1011 920 ENDDO !l 1012 921 c 1013 CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 1014 CALL histwrite(nid_mth,"dtlw",itau_w,zx_tmp_3d, 1015 $ iim*jjmp1*klev,ndex3d) 922 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 923 CALL histwrite_phy(nid_mth,"dtlw",itau_w,zx_tmp_fi3d) 1016 924 c 1017 925 c temperature tendency due to moist convective processes … … 1022 930 ENDDO !l 1023 931 c 1024 CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 1025 CALL histwrite(nid_mth,"dtcon",itau_w,zx_tmp_3d, 1026 $ iim*jjmp1*klev,ndex3d) 932 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 933 CALL histwrite_phy(nid_mth,"dtcon",itau_w,zx_tmp_fi3d) 1027 934 c 1028 935 c temperature tendency due to dry convective processes … … 1033 940 ENDDO !l 1034 941 c 1035 CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 1036 CALL histwrite(nid_mth,"dtajs",itau_w,zx_tmp_3d, 1037 $ iim*jjmp1*klev,ndex3d) 942 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 943 CALL histwrite_phy(nid_mth,"dtajs",itau_w,zx_tmp_fi3d) 1038 944 c 1039 945 c temperature tendency due to large scale precipitation … … 1044 950 ENDDO !l 1045 951 c 1046 CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 1047 CALL histwrite(nid_mth,"dtlsc",itau_w,zx_tmp_3d, 1048 $ iim*jjmp1*klev,ndex3d) 952 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 953 CALL histwrite_phy(nid_mth,"dtlsc",itau_w,zx_tmp_fi3d) 1049 954 c 1050 955 c total moisture tendency due to diabatic processes … … 1056 961 ENDDO !l 1057 962 c 1058 CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 1059 CALL histwrite(nid_mth,"dqdia",itau_w,zx_tmp_3d, 1060 $ iim*jjmp1*klev,ndex3d) 963 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) 964 CALL histwrite_phy(nid_mth,"dqdia",itau_w,zx_tmp_fi3d) 1061 965 c 1062 966 cBEG 210404 BEG … … 1071 975 ENDIF !(ok_orodr.AND.ok_orolf) THEN 1072 976 c 1073 CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_u_oli,zx_tmp_3d) 1074 CALL histwrite(nid_mth,"duoli",itau_w,zx_tmp_3d, 1075 $ iim*jjmp1*klev,ndex3d) 1076 c 1077 CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_v_oli,zx_tmp_3d) 1078 CALL histwrite(nid_mth,"dvoli",itau_w,zx_tmp_3d, 1079 $ iim*jjmp1*klev,ndex3d) 977 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_u_oli,zx_tmp_3d) 978 CALL histwrite_phy(nid_mth,"duoli",itau_w,d_u_oli) 979 c 980 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_v_oli,zx_tmp_3d) 981 CALL histwrite_phy(nid_mth,"dvoli",itau_w,d_v_oli) 1080 982 c 1081 983 zx_tmp_fi3d(1:klon,1:klev)=d_u_con(1:klon,1:klev)/pdtphys 1082 CALL gr_fi_ecrit(klev, klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1083 CALL histwrite(nid_mth,"ducon",itau_w,zx_tmp_3d, 1084 $ iim*jjmp1*klev,ndex3d) 984 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 985 CALL histwrite_phy(nid_mth,"ducon",itau_w,zx_tmp_fi3d) 1085 986 c 1086 987 zx_tmp_fi3d(1:klon,1:klev)=d_v_con(1:klon,1:klev)/pdtphys 1087 CALL gr_fi_ecrit(klev, klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1088 CALL histwrite(nid_mth,"dvcon",itau_w,zx_tmp_3d, 1089 $ iim*jjmp1*klev,ndex3d) 1090 c 1091 CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_u,zx_tmp_3d) 1092 CALL histwrite(nid_mth,"dutot",itau_w,zx_tmp_3d, 1093 $ iim*jjmp1*klev,ndex3d) 1094 c 1095 CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_v,zx_tmp_3d) 1096 CALL histwrite(nid_mth,"dvtot",itau_w,zx_tmp_3d, 1097 $ iim*jjmp1*klev,ndex3d) 988 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 989 CALL histwrite_phy(nid_mth,"dvcon",itau_w,zx_tmp_fi3d) 990 c 991 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_u,zx_tmp_3d) 992 CALL histwrite_phy(nid_mth,"dutot",itau_w,d_u) 993 c 994 cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_v,zx_tmp_3d) 995 CALL histwrite_phy(nid_mth,"dvtot",itau_w,d_v) 1098 996 1099 997 cEND 210404 END … … 1101 999 c cldtrue 1102 1000 c CALL gr_fi_ecrit(klev, klon,iim,jjmp1,cldtrue,zx_tmp_3d) 1103 c CALL histwrite (nid_mth,"cldtrue",itau_w,zx_tmp_3d,1001 c CALL histwrite_phy(nid_mth,"cldtrue",itau_w,zx_tmp_3d, 1104 1002 c $ iim*jjmp1*klev,ndex3d) 1105 1003 c 1106 1004 c CALL gr_fi_ecrit(klev, klon,iim,jjmp1,cldTOA,zx_tmp_3d) 1107 c CALL histwrite (nid_mth,"cldTOA",itau_w,zx_tmp_3d,1005 c CALL histwrite_phy(nid_mth,"cldTOA",itau_w,zx_tmp_3d, 1108 1006 c $ iim*jjmp1*klev,ndex3d) 1109 1007 c 1110 1008 c CALL gr_fi_ecrit(klev, klon,iim,jjmp1,cldSFC,zx_tmp_3d) 1111 c CALL histwrite (nid_mth,"cldSFC",itau_w,zx_tmp_3d,1009 c CALL histwrite_phy(nid_mth,"cldSFC",itau_w,zx_tmp_3d, 1112 1010 c $ iim*jjmp1*klev,ndex3d) 1113 1011 c … … 1116 1014 zx_tmp_fi2d(i)=zustrdr(i)+zustrli(i) 1117 1015 ENDDO 1118 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1119 CALL histwrite(nid_mth,"GWDtaux", 1120 $ itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1016 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1017 CALL histwrite_phy(nid_mth,"GWDtaux",itau_w,zx_tmp_fi2d) 1121 1018 c 1122 1019 DO i=1, klon … … 1124 1021 zx_tmp_fi2d(i)=zvstrdr(i)+zvstrli(i) 1125 1022 ENDDO 1126 CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1127 CALL histwrite(nid_mth,"GWDtauy", 1128 $ itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1023 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1024 CALL histwrite_phy(nid_mth,"GWDtauy",itau_w,zx_tmp_fi2d) 1129 1025 c 1130 1026 c220404 END 1131 1027 cAMIP2 END 1132 1028 c 1133 1134 CALL histwrite (nid_mth,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1029 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) 1030 CALL histwrite_phy(nid_mth,"slp",itau_w,slp) 1135 1031 1136 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)1137 CALL histwrite (nid_mth,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1138 c 1139 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)1140 CALL histwrite (nid_mth,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1032 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) 1033 CALL histwrite_phy(nid_mth,"tsol",itau_w,zxtsol) 1034 c 1035 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) 1036 CALL histwrite_phy(nid_mth,"t2m",itau_w,zt2m) 1141 1037 c 1142 1038 c ENSEMBLES BEG 1143 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 1144 CALL histwrite(nid_mth,"t2m_min",itau_w,zx_tmp_2d, 1145 . iim*jjmp1,ndex2d) 1146 c 1147 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 1148 CALL histwrite(nid_mth,"t2m_max",itau_w,zx_tmp_2d, 1149 . iim*jjmp1,ndex2d) 1039 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 1040 CALL histwrite_phy(nid_mth,"t2m_min",itau_w,zt2m) 1041 c 1042 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) 1043 CALL histwrite_phy(nid_mth,"t2m_max",itau_w,zt2m) 1150 1044 c 1151 1045 c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsoil(:,1,is_ter),zx_tmp_2d) 1152 1046 c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsol(:,is_ter),zx_tmp_2d) 1153 1047 c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ztsol,zx_tmp_2d) 1154 c CALL histwrite (nid_mth,"tsoil",itau_w,zx_tmp_2d,1048 c CALL histwrite_phy(nid_mth,"tsoil",itau_w,zx_tmp_2d, 1155 1049 c . iim*jjmp1,ndex2d) 1156 1050 c … … 1158 1052 zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) 1159 1053 ENDDO 1160 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1161 CALL histwrite(nid_mth,"wind10m",itau_w,zx_tmp_2d, 1162 $ iim*jjmp1,ndex2d) 1054 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1055 CALL histwrite_phy(nid_mth,"wind10m",itau_w,zx_tmp_fi2d) 1163 1056 c 1164 1057 DO i = 1, klon 1165 1058 zx_tmp_fi2d(i) = pctsrf(i,is_sic) 1166 1059 ENDDO 1167 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1168 CALL histwrite (nid_mth,"sicf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1060 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1061 CALL histwrite_phy(nid_mth,"sicf",itau_w,zx_tmp_fi2d) 1169 1062 c 1170 1063 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) 1171 c CALL histwrite (nid_mth,"temp",itau_w,zx_tmp_3d,1064 c CALL histwrite_phy(nid_mth,"temp",itau_w,zx_tmp_3d, 1172 1065 c . iim*jjmp1*klev,ndex3d) 1173 1066 c 1174 1067 c ENSEMBLES END 1175 1068 c 1176 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d)1177 CALL histwrite (nid_mth,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1178 c 1179 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d)1180 CALL histwrite (nid_mth,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1181 C 1182 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d)1183 CALL histwrite (nid_mth,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1069 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) 1070 CALL histwrite_phy(nid_mth,"q2m",itau_w,zq2m) 1071 c 1072 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) 1073 CALL histwrite_phy(nid_mth,"u10m",itau_w,zu10m) 1074 C 1075 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) 1076 CALL histwrite_phy(nid_mth,"v10m",itau_w,zv10m) 1184 1077 C 1185 1078 DO i = 1, klon 1186 1079 zx_tmp_fi2d(i) = paprs(i,1) 1187 1080 ENDDO 1188 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1189 CALL histwrite (nid_mth,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1190 c 1191 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d)1192 CALL histwrite (nid_mth,"qsurf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1081 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1082 CALL histwrite_phy(nid_mth,"psol",itau_w,zx_tmp_fi2d) 1083 c 1084 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d) 1085 CALL histwrite_phy(nid_mth,"qsurf",itau_w,zxqsurf) 1193 1086 c 1194 1087 if (.not. ok_veget) then 1195 CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d) 1196 CALL histwrite(nid_mth,"qsol",itau_w,zx_tmp_2d,iim*jjmp1 1197 $ ,ndex2d) 1088 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d) 1089 CALL histwrite_phy(nid_mth,"qsol",itau_w,qsol) 1198 1090 endif 1199 1091 c … … 1201 1093 zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) 1202 1094 ENDDO 1203 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1204 CALL histwrite(nid_mth,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1205 c 1206 CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d) 1207 CALL histwrite(nid_mth,"ndayrain",itau_w,zx_tmp_2d, 1208 $ iim*jjmp1,ndex2d) 1095 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1096 CALL histwrite_phy(nid_mth,"precip",itau_w,zx_tmp_fi2d) 1097 c 1098 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d) 1099 CALL histwrite_phy(nid_mth,"ndayrain",itau_w,nday_rain) 1209 1100 c 1210 1101 DO i = 1, klon 1211 1102 zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i) 1212 1103 ENDDO 1213 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1214 CALL histwrite (nid_mth,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1104 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1105 CALL histwrite_phy(nid_mth,"plul",itau_w,zx_tmp_fi2d) 1215 1106 c 1216 1107 DO i = 1, klon 1217 1108 zx_tmp_fi2d(i) = rain_con(i) + snow_con(i) 1218 1109 ENDDO 1219 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1220 CALL histwrite (nid_mth,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1221 c 1222 CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)1223 CALL histwrite (nid_mth,"snowf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1110 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1111 CALL histwrite_phy(nid_mth,"pluc",itau_w,zx_tmp_fi2d) 1112 c 1113 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d) 1114 CALL histwrite_phy(nid_mth,"snowf",itau_w,snow_fall) 1224 1115 c 1225 1116 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) 1226 c CALL histwrite (nid_mth,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,1117 c CALL histwrite_phy(nid_mth,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1, 1227 1118 c . ndex2d) 1228 1119 c 1229 CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)1230 CALL histwrite (nid_mth,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1231 c 1232 CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)1233 CALL histwrite (nid_mth,"tops",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1234 c 1235 CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d)1236 CALL histwrite (nid_mth,"tops0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1237 c 1238 CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)1239 CALL histwrite (nid_mth,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1240 c 1241 CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d)1242 CALL histwrite (nid_mth,"topl0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1120 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d) 1121 CALL histwrite_phy(nid_mth,"evap",itau_w,evap) 1122 c 1123 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d) 1124 CALL histwrite_phy(nid_mth,"tops",itau_w,topsw) 1125 c 1126 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d) 1127 CALL histwrite_phy(nid_mth,"tops0",itau_w,topsw0) 1128 c 1129 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) 1130 CALL histwrite_phy(nid_mth,"topl",itau_w,toplw) 1131 c 1132 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d) 1133 CALL histwrite_phy(nid_mth,"topl0",itau_w,toplw0) 1243 1134 c 1244 1135 zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 ) 1245 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1246 CALL histwrite(nid_mth, "SWupTOA",itau_w,zx_tmp_2d, 1247 . iim*jjmp1,ndex2d) 1136 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1137 CALL histwrite_phy(nid_mth, "SWupTOA",itau_w,zx_tmp_fi2d) 1248 1138 c 1249 1139 c 1250 1140 zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, klevp1 ) 1251 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1252 CALL histwrite(nid_mth, "SWupTOAclr",itau_w,zx_tmp_2d, 1253 . iim*jjmp1,ndex2d) 1141 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1142 CALL histwrite_phy(nid_mth, "SWupTOAclr",itau_w,zx_tmp_fi2d) 1254 1143 c 1255 1144 zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 ) 1256 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1257 CALL histwrite(nid_mth, "SWdnTOA",itau_w,zx_tmp_2d, 1258 . iim*jjmp1,ndex2d) 1145 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1146 CALL histwrite_phy(nid_mth, "SWdnTOA",itau_w,zx_tmp_fi2d) 1259 1147 c 1260 1148 zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, klevp1 ) 1261 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1262 CALL histwrite(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_2d, 1263 . iim*jjmp1,ndex2d) 1264 c 1265 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d) 1266 CALL histwrite(nid_mth,"SWup200",itau_w,zx_tmp_2d, 1267 $ iim*jjmp1,ndex2d) 1268 c 1269 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d) 1270 CALL histwrite(nid_mth,"SWup200clr",itau_w,zx_tmp_2d, 1271 $ iim*jjmp1,ndex2d) 1272 c 1273 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d) 1274 CALL histwrite(nid_mth,"SWdn200",itau_w,zx_tmp_2d, 1275 $ iim*jjmp1,ndex2d) 1276 c 1277 CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d) 1278 CALL histwrite(nid_mth,"SWdn200clr",itau_w,zx_tmp_2d, 1279 $ iim*jjmp1,ndex2d) 1280 c 1281 CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d) 1282 CALL histwrite(nid_mth,"LWup200",itau_w,zx_tmp_2d, 1283 $ iim*jjmp1,ndex2d) 1284 c 1285 CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d) 1286 CALL histwrite(nid_mth,"LWup200clr",itau_w,zx_tmp_2d, 1287 $ iim*jjmp1,ndex2d) 1149 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1150 CALL histwrite_phy(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_fi2d) 1151 c 1152 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d) 1153 CALL histwrite_phy(nid_mth,"SWup200",itau_w,SWup200) 1154 c 1155 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d) 1156 CALL histwrite_phy(nid_mth,"SWup200clr",itau_w,SWup200clr) 1157 c 1158 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d) 1159 CALL histwrite_phy(nid_mth,"SWdn200",itau_w,SWdn200) 1160 c 1161 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d) 1162 CALL histwrite_phy(nid_mth,"SWdn200clr",itau_w,SWdn200clr) 1163 c 1164 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d) 1165 CALL histwrite_phy(nid_mth,"LWup200",itau_w,LWup200) 1166 c 1167 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d) 1168 CALL histwrite_phy(nid_mth,"LWup200clr",itau_w,LWup200clr) 1288 1169 c 1289 1170 zx_tmp_fi2d(1:klon)=-1*LWdn200(1:klon) 1290 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1291 CALL histwrite(nid_mth,"LWdn200",itau_w,zx_tmp_2d, 1292 $ iim*jjmp1,ndex2d) 1171 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1172 CALL histwrite_phy(nid_mth,"LWdn200",itau_w,zx_tmp_fi2d) 1293 1173 c 1294 1174 zx_tmp_fi2d(1:klon)=-1*LWdn200clr(1:klon) 1295 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1296 CALL histwrite(nid_mth,"LWdn200clr",itau_w,zx_tmp_2d, 1297 $ iim*jjmp1,ndex2d) 1175 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1176 CALL histwrite_phy(nid_mth,"LWdn200clr",itau_w,zx_tmp_fi2d) 1298 1177 c 1299 1178 c200 END 1300 CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)1301 CALL histwrite (nid_mth,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1302 c 1303 CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d)1304 CALL histwrite (nid_mth,"sols0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1305 c 1306 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)1307 CALL histwrite (nid_mth,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1308 c 1309 CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d)1310 CALL histwrite (nid_mth,"radsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1311 c 1312 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d)1313 CALL histwrite (nid_mth,"soll0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1179 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d) 1180 CALL histwrite_phy(nid_mth,"sols",itau_w,solsw) 1181 c 1182 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d) 1183 CALL histwrite_phy(nid_mth,"sols0",itau_w,solsw0) 1184 c 1185 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d) 1186 CALL histwrite_phy(nid_mth,"soll",itau_w,sollw) 1187 c 1188 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d) 1189 CALL histwrite_phy(nid_mth,"radsol",itau_w,radsol) 1190 c 1191 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d) 1192 CALL histwrite_phy(nid_mth,"soll0",itau_w,sollw0) 1314 1193 c 1315 1194 c zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1) 1316 1195 zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 ) 1317 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1318 CALL histwrite(nid_mth, "SWupSFC",itau_w,zx_tmp_2d, 1319 . iim*jjmp1,ndex2d) 1196 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1197 CALL histwrite_phy(nid_mth, "SWupSFC",itau_w,zx_tmp_fi2d) 1320 1198 c 1321 1199 c zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1) 1322 1200 zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 ) 1323 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1324 CALL histwrite(nid_mth, "SWupSFCclr",itau_w,zx_tmp_2d, 1325 . iim*jjmp1,ndex2d) 1201 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1202 CALL histwrite_phy(nid_mth, "SWupSFCclr",itau_w,zx_tmp_fi2d) 1326 1203 c 1327 1204 c zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1) 1328 1205 zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 ) 1329 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1330 CALL histwrite(nid_mth, "SWdnSFC",itau_w,zx_tmp_2d, 1331 . iim*jjmp1,ndex2d) 1206 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1207 CALL histwrite_phy(nid_mth, "SWdnSFC",itau_w,zx_tmp_fi2d) 1332 1208 c 1333 1209 c zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1) 1334 1210 zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 ) 1335 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1336 CALL histwrite(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_2d, 1337 . iim*jjmp1,ndex2d) 1211 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1212 CALL histwrite_phy(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_fi2d) 1338 1213 c 1339 1214 cIM 080904 zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon) 1340 1215 cIM 130904 zx_tmp_fi2d(1:klon)=sollw(1:klon)-sollwdown(1:klon) 1341 1216 zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) 1342 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 1343 CALL histwrite(nid_mth,"LWupSFC",itau_w,zx_tmp_2d,iim*jjmp1, 1344 . ndex2d) 1217 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 1218 CALL histwrite_phy(nid_mth,"LWupSFC",itau_w,zx_tmp_fi2d) 1345 1219 c 1346 1220 DO i=1, klon … … 1351 1225 cIM 130904 zx_tmp_fi2d(1:klon)=sollw0(1:klon)-sollwdownclr(1:klon) 1352 1226 zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon) 1353 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 1354 CALL histwrite(nid_mth,"LWupSFCclr",itau_w,zx_tmp_2d,iim*jjmp1, 1355 . ndex2d) 1356 c 1357 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) 1358 CALL histwrite(nid_mth,"LWdnSFC",itau_w,zx_tmp_2d,iim*jjmp1, 1359 . ndex2d) 1227 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) 1228 CALL histwrite_phy(nid_mth,"LWupSFCclr",itau_w,zx_tmp_fi2d) 1229 c 1230 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) 1231 CALL histwrite_phy(nid_mth,"LWdnSFC",itau_w,sollwdown) 1360 1232 c 1361 1233 c DO i=1, klon … … 1364 1236 c ENDDO !i=1, klon 1365 1237 c 1366 CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) 1367 CALL histwrite(nid_mth,"LWdnSFCclr",itau_w,zx_tmp_2d, 1368 $ iim*jjmp1,ndex2d) 1369 c 1370 CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) 1371 CALL histwrite(nid_mth,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1238 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) 1239 CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr) 1240 c 1241 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) 1242 CALL histwrite_phy(nid_mth,"bils",itau_w,bils) 1372 1243 c 1373 1244 zx_tmp_fi2d(1:klon)=-1*sens(1:klon) 1374 1245 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d) 1375 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1376 CALL histwrite (nid_mth,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1377 c 1378 CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)1379 CALL histwrite (nid_mth,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1246 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1247 CALL histwrite_phy(nid_mth,"sens",itau_w,zx_tmp_fi2d) 1248 c 1249 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) 1250 CALL histwrite_phy(nid_mth,"fder",itau_w,fder) 1380 1251 c 1381 1252 c … … 1384 1255 c ENDDO 1385 1256 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1386 c CALL histwrite (nid_mth,"frtu",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1257 c CALL histwrite_phy(nid_mth,"frtu",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1387 1258 c 1388 1259 c DO i = 1, klon … … 1390 1261 c ENDDO 1391 1262 c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1392 c CALL histwrite(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1393 c 1394 c 1395 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) 1396 CALL histwrite(nid_mth,"ffonte",itau_w,zx_tmp_2d,iim*jjmp1, 1397 $ ndex2d) 1398 c 1399 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d) 1400 CALL histwrite(nid_mth,"fqcalving",itau_w,zx_tmp_2d,iim*jjmp1, 1401 $ ndex2d) 1263 c CALL histwrite_phy(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1264 c 1265 c 1266 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) 1267 CALL histwrite_phy(nid_mth,"ffonte",itau_w,zxffonte) 1268 c 1269 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d) 1270 CALL histwrite_phy(nid_mth,"fqcalving",itau_w,zxfqcalving) 1402 1271 c 1403 1272 DO nsrf = 1, nbsrf 1404 1273 zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf) 1405 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1406 CALL histwrite (nid_mth,"taux_"//clnsurf(nsrf),itau_w,1407 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1274 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1275 CALL histwrite_phy(nid_mth,"taux_"//clnsurf(nsrf),itau_w, 1276 $ zx_tmp_fi2d) 1408 1277 C 1409 1278 zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf) 1410 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1411 CALL histwrite (nid_mth,"tauy_"//clnsurf(nsrf),itau_w,1412 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1279 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1280 CALL histwrite_phy(nid_mth,"tauy_"//clnsurf(nsrf),itau_w, 1281 $ zx_tmp_fi2d) 1413 1282 ENDDO 1414 1283 c 1415 1284 zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, is_oce)*100. 1416 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)1417 CALL histwrite (nid_mth,"pourc_"//clnsurf(is_oce),itau_w,1418 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1285 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1286 CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_oce),itau_w, 1287 $ zx_tmp_fi2d) 1419 1288 c 1420 1289 zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, is_oce) 1421 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)1422 CALL histwrite (nid_mth,"fract_"//clnsurf(is_oce),itau_w,1423 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1290 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 1291 CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_oce),itau_w, 1292 $ zx_tmp_fi2d) 1424 1293 c 1425 1294 DO nsrf = 1, nbsrf … … 1427 1296 C 1428 1297 zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf) 1429 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1430 CALL histwrite (nid_mth,"tsol_"//clnsurf(nsrf),itau_w,1431 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1298 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1299 CALL histwrite_phy(nid_mth,"tsol_"//clnsurf(nsrf),itau_w, 1300 $ zx_tmp_fi2d) 1432 1301 C 1433 1302 zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf) 1434 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1435 CALL histwrite (nid_mth,"sens_"//clnsurf(nsrf),itau_w,1436 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1303 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1304 CALL histwrite_phy(nid_mth,"sens_"//clnsurf(nsrf),itau_w, 1305 $ zx_tmp_fi2d) 1437 1306 C 1438 1307 zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf) 1439 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1440 CALL histwrite (nid_mth,"lat_"//clnsurf(nsrf),itau_w,1441 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1308 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1309 CALL histwrite_phy(nid_mth,"lat_"//clnsurf(nsrf),itau_w, 1310 $ zx_tmp_fi2d) 1442 1311 C 1443 1312 zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf) 1444 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1445 CALL histwrite (nid_mth,"flw_"//clnsurf(nsrf),itau_w,1446 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1313 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1314 CALL histwrite_phy(nid_mth,"flw_"//clnsurf(nsrf),itau_w, 1315 $ zx_tmp_fi2d) 1447 1316 c 1448 1317 zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf) 1449 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1450 CALL histwrite (nid_mth,"fsw_"//clnsurf(nsrf),itau_w,1451 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1318 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1319 CALL histwrite_phy(nid_mth,"fsw_"//clnsurf(nsrf),itau_w, 1320 $ zx_tmp_fi2d) 1452 1321 C 1453 1322 zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf) 1454 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1455 CALL histwrite (nid_mth,"wbils_"//clnsurf(nsrf),itau_w,1456 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1323 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1324 CALL histwrite_phy(nid_mth,"wbils_"//clnsurf(nsrf),itau_w, 1325 $ zx_tmp_fi2d) 1457 1326 C 1458 1327 zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf) 1459 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1460 CALL histwrite (nid_mth,"wbilo_"//clnsurf(nsrf),itau_w,1461 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1328 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1329 CALL histwrite_phy(nid_mth,"wbilo_"//clnsurf(nsrf),itau_w, 1330 $ zx_tmp_fi2d) 1462 1331 C 1463 1332 IF(1.EQ.0) THEN 1464 1333 C 1465 1334 zx_tmp_fi2d(1:klon) = fevap(1:klon,nsrf)*pctsrf(1:klon,nsrf) 1466 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1467 CALL histwrite (nid_mth,"evapour_"//clnsurf(nsrf),itau_w,1468 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1335 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1336 CALL histwrite_phy(nid_mth,"evapour_"//clnsurf(nsrf),itau_w, 1337 $ zx_tmp_fi2d) 1469 1338 C 1470 1339 zx_tmp_fi2d(1:klon) = (rain_fall(1:klon) + snow_fall(1:klon)) 1471 1340 $ *pctsrf(1:klon,nsrf) 1472 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1473 CALL histwrite (nid_mth,"prepour_"//clnsurf(nsrf),itau_w,1474 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1341 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1342 CALL histwrite_phy(nid_mth,"prepour_"//clnsurf(nsrf),itau_w, 1343 $ zx_tmp_fi2d) 1475 1344 C 1476 1345 ENDIF !(1.EQ.0) THEN … … 1478 1347 END DO 1479 1348 c 1480 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)1481 CALL histwrite (nid_mth,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1482 c 1483 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)1484 CALL histwrite (nid_mth,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1485 c 1486 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)1487 CALL histwrite (nid_mth,"cldl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1488 c 1489 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)1490 CALL histwrite (nid_mth,"cldm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1491 c 1492 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)1493 CALL histwrite (nid_mth,"cldh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1494 c 1495 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt*100.,zx_tmp_2d)1496 CALL histwrite (nid_mth,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1497 c 1498 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)1499 CALL histwrite (nid_mth,"cldq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1349 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) 1350 CALL histwrite_phy(nid_mth,"cdrm",itau_w,cdragm) 1351 c 1352 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) 1353 CALL histwrite_phy(nid_mth,"cdrh",itau_w,cdragh) 1354 c 1355 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d) 1356 CALL histwrite_phy(nid_mth,"cldl",itau_w,cldl) 1357 c 1358 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d) 1359 CALL histwrite_phy(nid_mth,"cldm",itau_w,cldm) 1360 c 1361 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d) 1362 CALL histwrite_phy(nid_mth,"cldh",itau_w,cldh) 1363 c 1364 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt*100.,zx_tmp_2d) 1365 CALL histwrite_phy(nid_mth,"cldt",itau_w,cldt*100.) 1366 c 1367 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d) 1368 CALL histwrite_phy(nid_mth,"cldq",itau_w,cldq) 1500 1369 c 1501 1370 zx_tmp_fi2d(1:klon) = flwp(1:klon) 1502 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1503 CALL histwrite (nid_mth,"lwp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1371 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1372 CALL histwrite_phy(nid_mth,"lwp",itau_w,zx_tmp_fi2d) 1504 1373 c 1505 1374 zx_tmp_fi2d(1:klon) = fiwp(1:klon) 1506 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1507 CALL histwrite (nid_mth,"iwp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1508 c 1509 CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d)1510 CALL histwrite (nid_mth,"ue",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1511 c 1512 CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d)1513 CALL histwrite (nid_mth,"ve",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1514 c 1515 CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d)1516 CALL histwrite (nid_mth,"uq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1517 c 1518 CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d)1519 CALL histwrite (nid_mth,"vq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1375 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1376 CALL histwrite_phy(nid_mth,"iwp",itau_w,zx_tmp_fi2d) 1377 c 1378 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d) 1379 CALL histwrite_phy(nid_mth,"ue",itau_w,ue) 1380 c 1381 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d) 1382 CALL histwrite_phy(nid_mth,"ve",itau_w,ve) 1383 c 1384 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d) 1385 CALL histwrite_phy(nid_mth,"uq",itau_w,uq) 1386 c 1387 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d) 1388 CALL histwrite_phy(nid_mth,"vq",itau_w,vq) 1520 1389 cKE43 1521 1390 IF (iflag_con.GE.3) THEN ! sb 1522 1391 c 1523 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d)1524 CALL histwrite (nid_mth,"cape",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1525 c 1526 CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d)1527 CALL histwrite (nid_mth,"pbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1528 c 1529 CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d)1530 CALL histwrite (nid_mth,"ptop",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1531 c 1532 CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d)1533 CALL histwrite (nid_mth,"fbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1392 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d) 1393 CALL histwrite_phy(nid_mth,"cape",itau_w,cape) 1394 c 1395 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d) 1396 CALL histwrite_phy(nid_mth,"pbase",itau_w,pbase) 1397 c 1398 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d) 1399 CALL histwrite_phy(nid_mth,"ptop",itau_w,ema_pct) 1400 c 1401 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d) 1402 CALL histwrite_phy(nid_mth,"fbase",itau_w,ema_cbmf) 1534 1403 c 1535 1404 c34EK 1536 1405 c 1537 CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) 1538 CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d, 1539 . iim*jjmp1,ndex2d) 1406 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) 1407 CALL histwrite_phy(nid_mth,"prw",itau_w,prw) 1540 1408 c 1541 1409 ENDIF !iflag_con.GE.3 … … 1545 1413 c 1546 1414 c 1547 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) 1548 CALL histwrite(nid_mth,"s_pblh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1549 c 1550 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) 1551 CALL histwrite(nid_mth,"s_pblt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1552 c 1553 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) 1554 CALL histwrite(nid_mth,"s_lcl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 1555 c 1556 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) 1557 CALL histwrite(nid_mth,"s_capCL",itau_w,zx_tmp_2d,iim*jjmp1, 1558 . ndex2d) 1559 c 1560 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) 1561 CALL histwrite(nid_mth,"s_oliqCL",itau_w,zx_tmp_2d,iim*jjmp1, 1562 . ndex2d) 1563 c 1564 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) 1565 CALL histwrite(nid_mth,"s_cteiCL",itau_w,zx_tmp_2d,iim*jjmp1, 1566 . ndex2d) 1567 c 1568 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) 1569 CALL histwrite(nid_mth,"s_therm",itau_w,zx_tmp_2d,iim*jjmp1, 1570 . ndex2d) 1571 c 1572 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) 1573 CALL histwrite(nid_mth,"s_trmb1",itau_w,zx_tmp_2d,iim*jjmp1, 1574 . ndex2d) 1575 c 1576 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) 1577 CALL histwrite(nid_mth,"s_trmb2",itau_w,zx_tmp_2d,iim*jjmp1, 1578 . ndex2d) 1579 c 1580 CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) 1581 CALL histwrite(nid_mth,"s_trmb3",itau_w,zx_tmp_2d,iim*jjmp1, 1582 . ndex2d) 1415 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) 1416 CALL histwrite_phy(nid_mth,"s_pblh",itau_w,s_pblh) 1417 c 1418 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) 1419 CALL histwrite_phy(nid_mth,"s_pblt",itau_w,s_pblt) 1420 c 1421 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) 1422 CALL histwrite_phy(nid_mth,"s_lcl",itau_w,s_lcl) 1423 c 1424 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) 1425 CALL histwrite_phy(nid_mth,"s_capCL",itau_w,s_capCL) 1426 c 1427 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) 1428 CALL histwrite_phy(nid_mth,"s_oliqCL",itau_w,s_oliqCL) 1429 c 1430 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) 1431 CALL histwrite_phy(nid_mth,"s_cteiCL",itau_w,s_cteiCL) 1432 c 1433 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) 1434 CALL histwrite_phy(nid_mth,"s_therm",itau_w,s_therm) 1435 c 1436 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) 1437 CALL histwrite_phy(nid_mth,"s_trmb1",itau_w,s_trmb1) 1438 c 1439 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) 1440 CALL histwrite_phy(nid_mth,"s_trmb2",itau_w,s_trmb2) 1441 c 1442 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) 1443 CALL histwrite_phy(nid_mth,"s_trmb3",itau_w,s_trmb3) 1583 1444 c 1584 1445 cIM cf. AM 081204 END … … 1600 1461 $ .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN 1601 1462 c 1602 CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,2),zx_tmp_2d) 1603 CALL histwrite(nid_mth,"u"//bb2,itau_w,zx_tmp_2d, 1604 $ iim*jjmp1,ndex2d) 1605 c 1606 CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,2),zx_tmp_2d) 1607 CALL histwrite(nid_mth,"v"//bb2,itau_w,zx_tmp_2d, 1608 $ iim*jjmp1,ndex2d) 1609 c 1610 CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,2),zx_tmp_2d) 1611 CALL histwrite(nid_mth,"w"//bb2,itau_w,zx_tmp_2d, 1612 $ iim*jjmp1,ndex2d) 1613 c 1614 CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,2),zx_tmp_2d) 1615 CALL histwrite(nid_mth,"phi"//bb2,itau_w,zx_tmp_2d, 1616 $ iim*jjmp1,ndex2d) 1463 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,2),zx_tmp_2d) 1464 CALL histwrite_phy(nid_mth,"u"//bb2,itau_w,usumSTD(:,k,2)) 1465 c 1466 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,2),zx_tmp_2d) 1467 CALL histwrite_phy(nid_mth,"v"//bb2,itau_w,vsumSTD(:,k,2)) 1468 c 1469 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,2),zx_tmp_2d) 1470 CALL histwrite_phy(nid_mth,"w"//bb2,itau_w,wsumSTD(:,k,2)) 1471 c 1472 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,2),zx_tmp_2d) 1473 CALL histwrite_phy(nid_mth,"phi"//bb2,itau_w,phisumSTD(:,k,2)) 1617 1474 c 1618 1475 ENDIF !(bb2.EQ."850".OR.bb2.EQ."700" … … 1627 1484 ENDDO 1628 1485 c 1629 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1630 CALL histwrite(nid_mth,"fluxo",itau_w,zx_tmp_2d, 1631 . iim*jjmp1,ndex2d) 1486 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1487 CALL histwrite_phy(nid_mth,"fluxo",itau_w,zx_tmp_fi2d) 1632 1488 c 1633 1489 DO i=1, klon … … 1639 1495 ENDDO 1640 1496 c 1641 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1642 CALL histwrite(nid_mth,"fluxg",itau_w,zx_tmp_2d, 1643 . iim*jjmp1,ndex2d) 1497 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1498 CALL histwrite_phy(nid_mth,"fluxg",itau_w,zx_tmp_fi2d) 1644 1499 c 1645 1500 DO i=1, klon … … 1654 1509 ENDDO 1655 1510 c 1656 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1657 CALL histwrite(nid_mth,"t_oce_sic",itau_w,zx_tmp_2d, 1658 . iim*jjmp1,ndex2d) 1511 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1512 CALL histwrite_phy(nid_mth,"t_oce_sic",itau_w,zx_tmp_fi2d) 1659 1513 c 1660 1514 IF (OCEAN.EQ.'force ') THEN … … 1669 1523 ENDIF 1670 1524 ENDDO 1671 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1672 CALL histwrite (nid_mth,"lmt_bils",itau_w,1673 . zx_tmp_ 2d,iim*jjmp1,ndex2d)1525 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1526 CALL histwrite_phy(nid_mth,"lmt_bils",itau_w, 1527 . zx_tmp_fi2d) 1674 1528 c 1675 1529 ELSE IF (OCEAN.EQ.'slab ') THEN … … 1685 1539 ENDIF 1686 1540 ENDDO 1687 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)1688 CALL histwrite (nid_mth,"slab_bils",itau_w,1689 . zx_tmp_ 2d,iim*jjmp1,ndex2d)1541 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1542 CALL histwrite_phy(nid_mth,"slab_bils",itau_w, 1543 . zx_tmp_fi2d) 1690 1544 c 1691 1545 DO i=1, klon … … 1697 1551 ENDIF 1698 1552 ENDDO !i=1, klon 1699 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1700 CALL histwrite(nid_mth,"tslab",itau_w,zx_tmp_2d, 1701 . iim*jjmp1,ndex2d) 1702 c 1703 CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) 1704 CALL histwrite(nid_mth,"seaice",itau_w,zx_tmp_2d, 1705 . iim*jjmp1,ndex2d) 1706 c 1707 CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) 1708 CALL histwrite(nid_mth,"siceh",itau_w,zx_tmp_2d, 1709 . iim*jjmp1,ndex2d) 1553 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 1554 CALL histwrite_phy(nid_mth,"tslab",itau_w,zx_tmp_fi2d) 1555 c 1556 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) 1557 CALL histwrite_phy(nid_mth,"seaice",itau_w,seaice) 1558 c 1559 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) 1560 CALL histwrite_phy(nid_mth,"siceh",itau_w,seaice/1000.) 1710 1561 c 1711 1562 ENDIF !OCEAN.EQ.force/slab … … 1718 1569 C 1719 1570 c 1720 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) 1721 CALL histwrite(nid_mth,"lwcon",itau_w,zx_tmp_3d, 1722 . iim*jjmp1*klev,ndex3d) 1723 c 1724 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) 1725 CALL histwrite(nid_mth,"iwcon",itau_w,zx_tmp_3d, 1726 . iim*jjmp1*klev,ndex3d) 1727 c 1728 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) 1729 CALL histwrite(nid_mth,"temp",itau_w,zx_tmp_3d, 1730 . iim*jjmp1*klev,ndex3d) 1571 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) 1572 CALL histwrite_phy(nid_mth,"lwcon",itau_w,flwc) 1573 c 1574 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) 1575 CALL histwrite_phy(nid_mth,"iwcon",itau_w,fiwc) 1576 c 1577 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) 1578 CALL histwrite_phy(nid_mth,"temp",itau_w,t_seri) 1731 1579 c 1732 1580 c#ifdef histmthNMC … … 1734 1582 c#endif 1735 1583 c 1736 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) 1737 CALL histwrite(nid_mth,"ovap",itau_w,zx_tmp_3d, 1738 . iim*jjmp1*klev,ndex3d) 1584 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) 1585 CALL histwrite_phy(nid_mth,"ovap",itau_w, qx(:,:,ivap)) 1739 1586 c 1740 1587 c zx_tmp_fi3d(1:klon,1:klev)=qx(1:klon,1:klev,ivap)/ 1741 1588 c . (1-qx(1:klon,1:klev,ivap)) 1742 1589 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) 1743 c CALL histwrite (nid_mth,"wvap",itau_w,zx_tmp_3d,1590 c CALL histwrite_phy(nid_mth,"wvap",itau_w,zx_tmp_3d, 1744 1591 c . iim*jjmp1*klev,ndex3d) 1745 1592 c 1746 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) 1747 CALL histwrite(nid_mth,"geop",itau_w,zx_tmp_3d, 1748 . iim*jjmp1*klev,ndex3d) 1749 c 1750 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) 1751 CALL histwrite(nid_mth,"vitu",itau_w,zx_tmp_3d, 1752 . iim*jjmp1*klev,ndex3d) 1753 c 1754 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) 1755 CALL histwrite(nid_mth,"vitv",itau_w,zx_tmp_3d, 1756 . iim*jjmp1*klev,ndex3d) 1757 c 1758 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) 1759 CALL histwrite(nid_mth,"vitw",itau_w,zx_tmp_3d, 1760 . iim*jjmp1*klev,ndex3d) 1761 c 1762 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) 1763 CALL histwrite(nid_mth,"pres",itau_w,zx_tmp_3d, 1764 . iim*jjmp1*klev,ndex3d) 1765 c 1766 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra*100., zx_tmp_3d) 1767 CALL histwrite(nid_mth,"rneb",itau_w,zx_tmp_3d, 1768 . iim*jjmp1*klev,ndex3d) 1769 c 1770 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) 1771 CALL histwrite(nid_mth,"rnebcon",itau_w,zx_tmp_3d, 1772 . iim*jjmp1*klev,ndex3d) 1773 c 1774 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d) 1775 CALL histwrite(nid_mth,"rhum",itau_w,zx_tmp_3d, 1776 . iim*jjmp1*klev,ndex3d) 1593 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) 1594 CALL histwrite_phy(nid_mth,"geop",itau_w,zphi) 1595 c 1596 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) 1597 CALL histwrite_phy(nid_mth,"vitu",itau_w,u_seri) 1598 c 1599 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) 1600 CALL histwrite_phy(nid_mth,"vitv",itau_w,v_seri) 1601 c 1602 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) 1603 CALL histwrite_phy(nid_mth,"vitw",itau_w,omega) 1604 c 1605 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) 1606 CALL histwrite_phy(nid_mth,"pres",itau_w,pplay) 1607 c 1608 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra*100., zx_tmp_3d) 1609 CALL histwrite_phy(nid_mth,"rneb",itau_w,cldfra*100.) 1610 c 1611 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) 1612 CALL histwrite_phy(nid_mth,"rnebcon",itau_w,rnebcon) 1613 c 1614 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d) 1615 CALL histwrite_phy(nid_mth,"rhum",itau_w,zx_rh) 1777 1616 c 1778 1617 DO k=1, klev … … 1790 1629 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d) 1791 1630 c CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp2_fi3d,zx_tmp_3d) 1792 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1793 CALL histwrite(nid_mth,"ozone",itau_w,zx_tmp_3d, 1794 . iim*jjmp1*klev,ndex3d) 1795 c 1796 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d) 1797 CALL histwrite(nid_mth,"dtphy",itau_w,zx_tmp_3d, 1798 . iim*jjmp1*klev,ndex3d) 1799 c 1800 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap), 1801 . zx_tmp_3d) 1802 CALL histwrite(nid_mth,"dqphy",itau_w,zx_tmp_3d, 1803 . iim*jjmp1*klev,ndex3d) 1631 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1632 CALL histwrite_phy(nid_mth,"ozone",itau_w,zx_tmp_fi3d) 1633 c 1634 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d) 1635 CALL histwrite_phy(nid_mth,"dtphy",itau_w,d_t) 1636 c 1637 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap),zx_tmp_3d) 1638 CALL histwrite_phy(nid_mth,"dqphy",itau_w,d_qx(:,:,ivap)) 1804 1639 c 1805 1640 ENDIF !lev_histmth.GE.2 … … 1810 1645 c 1811 1646 zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf) 1812 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1813 CALL histwrite (nid_mth,"albe_"//clnsurf(nsrf),itau_w,1814 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1647 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1648 CALL histwrite_phy(nid_mth,"albe_"//clnsurf(nsrf),itau_w, 1649 $ zx_tmp_fi2d) 1815 1650 C 1816 1651 zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf) 1817 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)1818 CALL histwrite (nid_mth,"rugs_"//clnsurf(nsrf),itau_w,1819 $ zx_tmp_ 2d,iim*jjmp1,ndex2d)1652 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 1653 CALL histwrite_phy(nid_mth,"rugs_"//clnsurf(nsrf),itau_w, 1654 $ zx_tmp_fi2d) 1820 1655 c 1821 1656 zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf) 1822 CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d)1823 CALL histwrite (nid_mth,"ages_"//clnsurf(nsrf),itau_w1824 $ , zx_tmp_2d,iim*jjmp1,ndex2d)1657 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d) 1658 CALL histwrite_phy(nid_mth,"ages_"//clnsurf(nsrf),itau_w 1659 $ ,agesno) 1825 1660 c 1826 1661 ENDDO !nsrf=1, nbsrf 1827 1662 c 1828 CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)1829 CALL histwrite (nid_mth,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1830 c 1831 CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)1832 CALL histwrite (nid_mth,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)1663 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d) 1664 CALL histwrite_phy(nid_mth,"albs",itau_w,albsol) 1665 c 1666 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d) 1667 CALL histwrite_phy(nid_mth,"albslw",itau_w,albsollw) 1833 1668 c 1834 1669 ENDIF !lev_histmth.GE.3 … … 1837 1672 IF(lev_histmth.GE.4) THEN 1838 1673 c 1839 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) 1840 CALL histwrite(nid_mth,"clwcon",itau_w,zx_tmp_3d, 1841 . iim*jjmp1*klev,ndex3d) 1674 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) 1675 CALL histwrite_phy(nid_mth,"clwcon",itau_w,clwcon0) 1842 1676 c 1843 1677 IF (iflag_con.GE.3) THEN 1844 1678 c 1845 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) 1846 CALL histwrite(nid_mth,"Ma",itau_w,zx_tmp_3d, 1847 . iim*jjmp1*klev,ndex3d) 1848 c 1849 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) 1850 CALL histwrite(nid_mth,"upwd",itau_w,zx_tmp_3d, 1851 . iim*jjmp1*klev,ndex3d) 1852 c 1853 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) 1854 CALL histwrite(nid_mth,"dnwd",itau_w,zx_tmp_3d, 1855 . iim*jjmp1*klev,ndex3d) 1856 c 1857 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) 1858 CALL histwrite(nid_mth,"dnwd0",itau_w,zx_tmp_3d, 1859 . iim*jjmp1*klev,ndex3d) 1679 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) 1680 CALL histwrite_phy(nid_mth,"Ma",itau_w,Ma) 1681 c 1682 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) 1683 CALL histwrite_phy(nid_mth,"upwd",itau_w,upwd) 1684 c 1685 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) 1686 CALL histwrite_phy(nid_mth,"dnwd",itau_w,dnwd) 1687 c 1688 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) 1689 CALL histwrite_phy(nid_mth,"dnwd0",itau_w,dnwd0) 1860 1690 c 1861 1691 ENDIF !iflag_con.GE.3 1862 1692 c 1863 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d) 1864 CALL histwrite(nid_mth,"dtdyn",itau_w,zx_tmp_3d, 1865 . iim*jjmp1*klev,ndex3d) 1866 c 1867 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d) 1868 CALL histwrite(nid_mth,"dqdyn",itau_w,zx_tmp_3d, 1869 . iim*jjmp1*klev,ndex3d) 1693 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d) 1694 CALL histwrite_phy(nid_mth,"dtdyn",itau_w,d_t_dyn) 1695 c 1696 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d) 1697 CALL histwrite_phy(nid_mth,"dqdyn",itau_w,d_q_dyn) 1870 1698 c 1871 1699 cIM: 101003 : K/30min ==> K/s 1872 1700 c 1873 1701 zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys 1874 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1875 CALL histwrite(nid_mth,"dqcon",itau_w,zx_tmp_3d, 1876 . iim*jjmp1*klev,ndex3d) 1702 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1703 CALL histwrite_phy(nid_mth,"dqcon",itau_w,zx_tmp_fi3d) 1877 1704 c 1878 1705 cIM: 101003 : K/30min ==> K/s 1879 1706 zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+ 1880 1707 . d_t_eva(1:klon,1:klev))/pdtphys 1881 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) 1882 CALL histwrite(nid_mth,"dtlschr",itau_w,zx_tmp_3d, 1883 . iim*jjmp1*klev,ndex3d) 1708 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) 1709 CALL histwrite_phy(nid_mth,"dtlschr",itau_w,zx_tmp_fi3d) 1884 1710 c 1885 1711 zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys 1886 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1887 CALL histwrite(nid_mth,"dqlsc",itau_w,zx_tmp_3d, 1888 . iim*jjmp1*klev,ndex3d) 1712 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1713 CALL histwrite_phy(nid_mth,"dqlsc",itau_w,zx_tmp_fi3d) 1889 1714 c 1890 1715 cIM: 101003 : K/30min ==> K/s 1891 1716 zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys 1892 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1893 CALL histwrite(nid_mth,"dtvdf",itau_w,zx_tmp_3d, 1894 . iim*jjmp1*klev,ndex3d) 1717 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1718 CALL histwrite_phy(nid_mth,"dtvdf",itau_w,zx_tmp_fi3d) 1895 1719 c 1896 1720 zx_tmp_fi3d(1:klon,1:klev)=d_q_vdf(1:klon,1:klev)/pdtphys 1897 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1898 CALL histwrite(nid_mth,"dqvdf",itau_w,zx_tmp_3d, 1899 . iim*jjmp1*klev,ndex3d) 1721 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1722 CALL histwrite_phy(nid_mth,"dqvdf",itau_w,zx_tmp_fi3d) 1900 1723 c 1901 1724 cIM: 101003 : K/30min ==> K/s 1902 1725 zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys 1903 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1904 CALL histwrite(nid_mth,"dteva",itau_w,zx_tmp_3d, 1905 . iim*jjmp1*klev,ndex3d) 1726 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1727 CALL histwrite_phy(nid_mth,"dteva",itau_w,zx_tmp_fi3d) 1906 1728 c 1907 1729 zx_tmp_fi3d(1:klon,1:klev)=d_q_eva(1:klon,1:klev)/pdtphys 1908 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1909 CALL histwrite(nid_mth,"dqeva",itau_w,zx_tmp_3d, 1910 . iim*jjmp1*klev,ndex3d) 1730 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1731 CALL histwrite_phy(nid_mth,"dqeva",itau_w,zx_tmp_fi3d) 1911 1732 c 1912 1733 zpt_conv = 0. 1913 1734 where (ptconv) zpt_conv = 1. 1914 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d) 1915 CALL histwrite(nid_mth,"ptconv",itau_w,zx_tmp_3d, 1916 . iim*(jjmp1)*klev,ndex3d) 1917 c 1918 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d) 1919 CALL histwrite(nid_mth,"ratqs",itau_w,zx_tmp_3d, 1920 . iim*(jjmp1)*klev,ndex3d) 1735 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d) 1736 CALL histwrite_phy(nid_mth,"ptconv",itau_w,zpt_conv) 1737 c 1738 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d) 1739 CALL histwrite_phy(nid_mth,"ratqs",itau_w,ratqs) 1921 1740 c 1922 1741 zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys 1923 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1924 CALL histwrite(nid_mth,"dqajs",itau_w,zx_tmp_3d, 1925 . iim*jjmp1*klev,ndex3d) 1742 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1743 CALL histwrite_phy(nid_mth,"dqajs",itau_w,zx_tmp_fi3d) 1926 1744 c 1927 1745 cIM: 101003 : K/day ==> K/s 1928 1746 zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)/RDAY 1929 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1930 CALL histwrite(nid_mth,"dtswr",itau_w,zx_tmp_3d, 1931 . iim*jjmp1*klev,ndex3d) 1747 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1748 CALL histwrite_phy(nid_mth,"dtswr",itau_w,zx_tmp_fi3d) 1932 1749 c 1933 1750 cIM: 101003 : K/day ==> K/s 1934 1751 zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)/RDAY 1935 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1936 CALL histwrite(nid_mth,"dtsw0",itau_w,zx_tmp_3d, 1937 . iim*jjmp1*klev,ndex3d) 1752 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1753 CALL histwrite_phy(nid_mth,"dtsw0",itau_w,zx_tmp_fi3d) 1938 1754 c 1939 1755 cIM: 101003 : K/day ==> K/s 1940 1756 zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)/RDAY 1941 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1942 CALL histwrite(nid_mth,"dtlwr",itau_w,zx_tmp_3d, 1943 . iim*jjmp1*klev,ndex3d) 1757 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1758 CALL histwrite_phy(nid_mth,"dtlwr",itau_w,zx_tmp_fi3d) 1944 1759 c 1945 1760 cIM: 101003 : K/day ==> K/s 1946 1761 zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)/RDAY 1947 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1948 CALL histwrite(nid_mth,"dtlw0",itau_w,zx_tmp_3d, 1949 . iim*jjmp1*klev,ndex3d) 1762 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1763 CALL histwrite_phy(nid_mth,"dtlw0",itau_w,zx_tmp_fi3d) 1950 1764 c 1951 1765 cIM: 101003 : deja en K/s 1952 1766 zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev) 1953 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1954 CALL histwrite(nid_mth,"dtec",itau_w,zx_tmp_3d, 1955 . iim*jjmp1*klev,ndex3d) 1767 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1768 CALL histwrite_phy(nid_mth,"dtec",itau_w,zx_tmp_fi3d) 1956 1769 c 1957 1770 zx_tmp_fi3d(1:klon,1:klev)=d_u_vdf(1:klon,1:klev)/pdtphys 1958 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1959 CALL histwrite(nid_mth,"duvdf",itau_w,zx_tmp_3d, 1960 . iim*jjmp1*klev,ndex3d) 1771 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1772 CALL histwrite_phy(nid_mth,"duvdf",itau_w,zx_tmp_fi3d) 1961 1773 c 1962 1774 zx_tmp_fi3d(1:klon,1:klev)=d_v_vdf(1:klon,1:klev)/pdtphys 1963 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1964 CALL histwrite(nid_mth,"dvvdf",itau_w,zx_tmp_3d, 1965 . iim*jjmp1*klev,ndex3d) 1775 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1776 CALL histwrite_phy(nid_mth,"dvvdf",itau_w,zx_tmp_fi3d) 1966 1777 c 1967 1778 IF (ok_orodr) THEN 1968 1779 zx_tmp_fi3d(1:klon,1:klev)=d_u_oro(1:klon,1:klev)/pdtphys 1969 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1970 CALL histwrite(nid_mth,"duoro",itau_w,zx_tmp_3d, 1971 . iim*jjmp1*klev,ndex3d) 1780 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1781 CALL histwrite_phy(nid_mth,"duoro",itau_w,zx_tmp_fi3d) 1972 1782 c 1973 1783 zx_tmp_fi3d(1:klon,1:klev)=d_v_oro(1:klon,1:klev)/pdtphys 1974 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1975 CALL histwrite(nid_mth,"dvoro",itau_w,zx_tmp_3d, 1976 . iim*jjmp1*klev,ndex3d) 1784 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1785 CALL histwrite_phy(nid_mth,"dvoro",itau_w,zx_tmp_fi3d) 1977 1786 c 1978 1787 ENDIF … … 1980 1789 IF (ok_orolf) THEN 1981 1790 zx_tmp_fi3d(1:klon,1:klev)=d_u_lif(1:klon,1:klev)/pdtphys 1982 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1983 CALL histwrite(nid_mth,"dulif",itau_w,zx_tmp_3d, 1984 . iim*jjmp1*klev,ndex3d) 1791 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1792 CALL histwrite_phy(nid_mth,"dulif",itau_w,zx_tmp_fi3d) 1985 1793 c 1986 1794 zx_tmp_fi3d(1:klon,1:klev)=d_v_lif(1:klon,1:klev)/pdtphys 1987 CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1988 CALL histwrite(nid_mth,"dvlif",itau_w,zx_tmp_3d, 1989 . iim*jjmp1*klev,ndex3d) 1795 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) 1796 CALL histwrite_phy(nid_mth,"dvlif",itau_w,zx_tmp_fi3d) 1990 1797 ENDIF 1991 1798 C 1992 1799 IF (nqmax.GE.3) THEN 1993 1800 DO iq=3,nqmax 1994 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d) 1995 CALL histwrite(nid_mth,tnom(iq),itau_w,zx_tmp_3d, 1996 . iim*jjmp1*klev,ndex3d) 1801 cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d) 1802 CALL histwrite_phy(nid_mth,tnom(iq),itau_w,qx(:,:,iq)) 1997 1803 ENDDO 1998 1804 ENDIF … … 2003 1809 c 2004 1810 if (ok_sync) then 1811 c$OMP MASTER 2005 1812 call histsync(nid_mth) 1813 c$OMP END MASTER 2006 1814 endif 2007 1815 c
Note: See TracChangeset
for help on using the changeset viewer.