Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histday.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histday.h (revision 1104) +++ (revision ) @@ -1,738 +1,0 @@ -c -c $Header$ -c - IF (ok_journe) THEN - -c$OMP MASTER -c - zstophy = dtime - zstoday= ecrit_day - zout = ecrit_day -c - idayref = day_ref - CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) -cym DO i = 1, iim -cym zx_lon(i,1) = rlon(i+1) -cym zx_lon(i,jjmp1) = rlon(i+1) -cym ENDDO - DO ll=1,klev - znivsig(ll)=float(ll) - ENDDO -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) -cym CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), -cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, -cym . nhori, nid_day) - - CALL histbeg_phy("histday",itau_phy, zjulian, dtime, - . nhori, nid_day) - - write(*,*)'Journee ', itau_phy, zjulian - CALL histvert(nid_day, "presnivs", "Vertical levels", "mb", - . klev, presnivs/100., nvert) -c - IF(lev_histday.GE.1) THEN -c - CALL histdef(nid_day, "phis", "Surface geop. height", "m2/s2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_day, "aire", "Grid area", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_day, "contfracATM","% sfce ter+lic ","-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_day, "contfracOR","% sfce terre OR", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c -c Champs 2D: -c - CALL histdef(nid_day, "weakinv", "Weak inversion", "", - s iim,jjmp1,nhori, 1,1,1, -99, 32, - s "ave(X)", zstophy,zout) - - CALL histdef(nid_day, "dthmin", "dTheta mini", "K/m", - s iim,jjmp1,nhori, 1,1,1, -99, 32, - s "ave(X)", zstophy,zout) - - - CALL histdef(nid_day, "tsol", "Surface Temperature", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "t2m", "Temperature 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c Champs retires momentannement en attendant un hypothetique -c debugage - - CALL histdef(nid_day, "t2m_min", "Temp. 2m min.", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . t2mincels, zstophy,zout) -c - CALL histdef(nid_day, "t2m_max", "Temp. 2m max.", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . t2maxcels, zstophy,zout) -c -! CALL histdef(nid_day, "plul", "Large-scale Precip.", -! . "kg/(s*m2)", -! . iim,jj_nb,nhori, 1,1,1, -99, 32, -! . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "pluc", "Convective Precip.", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.", - . "kg/(m2*s)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - IF(1.EQ.0) THEN !snowc=0. - CALL histdef(nid_day, "snowc", "Solid Convective Precip.", - . "kg/(m2*s)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - ENDIF !snowc=0. -c - CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "sicf", "Sea-ice fraction", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstoday,zout) -c - CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "u10m", "Vent zonal 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "v10m", "Vent meridien 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "wind10m","10-m wind speed","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "wind10max", "10-m wind speed max.", - . "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . t2maxcels, zstophy,zout) -c - CALL histdef(nid_day, "psol", "Surface Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "precip","Precipitation Totale liq+sol" - . , "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "plul","Precipitation ls liq+sol" - . , "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "snowf", "Snow fall", "kg/(m2*s)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "evap", "Evaporation", "kg/(m2*s)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "sols", "Net Solar rad. at surf.", - . "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "radsol", "Rayonnement au sol", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "cldh", "High-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "cldt", "Total cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "cldq", "Cloud liquid water path", - . "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c Champs dynamiques sur niveaux de pression -c -c DO k=1, nlevENS - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb2=clevSTD(k) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700" - . .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN -c - CALL histdef(nid_day, "u"//bb2, - . "Zonal wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_day, "v"//bb2, - . "Meridional wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.bb2.EQ."500".OR.bb2.EQ."200") THEN -c - IF(bb2.EQ."500") THEN -c - CALL histdef(nid_day, "w"//bb2, "Vertical wind "//bb2//"mb", - . "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_day,"phi"//bb2, "Geopotential "//bb2//"mb", - . "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - ENDIF !(bb2.EQ."500") -c - ENDDO !nlevSTD -c - CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "cape_max", "CAPE max.", - . "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . capemaxcels, zstophy,zout) -c - CALL histdef(nid_day, "solldown", "Down. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "SWdnSFC", "SWdn at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c -cIM diagnostiques flux ocean-atm ou ocean-glace de mer -cIM pour utilisation dans un modele de "slab" ocean -c - IF (OCEAN.EQ.'force ') THEN -c - CALL histdef(nid_day, "lmt_bils", - . "Bilan au sol atmosphere forcee", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ELSE IF (OCEAN.EQ.'slab ') THEN -c - CALL histdef(nid_day, "slab_bils", - . "Bilan au sol slab", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "tslab", "Slab SST ", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "seaice", "Slab seaice", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "siceh", "Slab seaice height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !OCEAN.EQ.force/slab -c - CALL histdef(nid_day, "fluxo", - . "Flux turbulents ocean-atmosphere", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "fluxg", - . "Flux ocean-glace de mer", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histday.GE.1 -c - IF (lev_histday.GE.2) THEN -c - CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histday.GE.2 -c================================================================= - IF(lev_histday.GE.3) THEN -c================================================================= -c INITIALISATION DES CHAMPS 3D -c================================================================= -c================================================================= -c================================================================= -c Champs 3D: -c - CALL histdef(nid_day, "temp", "Air temperature", "K", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "rhum", "relative humidity", " ", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "geop", "Geopotential height", "m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "vitu", "Zonal wind", "m/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "vitv", "Meridional wind", "m/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "vitw", "Vertical wind", "Pa/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "pres", "Air pressure", "Pa", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c -c================================================================= -c FIN INITIALISATION DES CHAMPS 3D -c================================================================= - ENDIF ! lev_histday.GE.3 -c - IF (lev_histday.GE.4) THEN -c================================================================= -c -c INITIALISATION DES CHAMPS SUR LES SOUS SURFACES -c -c================================================================= -c - CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "SWupTOAclr", - . "SWup clear sky at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) - - CALL histdef(nid_day, "SWupSFCclr", - . "SWup clear sky at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) - - CALL histdef(nid_day, "SWdnTOAclr", - . "SWdn clear sky at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) - - CALL histdef(nid_day, "SWdnSFCclr", - . "SWdn clear sky at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c -cIM AMMA-MIP - CALL histdef(nid_day, "LWdnSFC", - . "LW down at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "LWupSFC", - . "LW down at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c -cIM IF (iflag_con.GE.3) THEN - if (ok_ISCCP) then - CALL histdef(nid_day, "ptop", -c . "Cld top pressure","mb", - . "Cld top pressure (cf ISCCP simulator)","Pa", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) - ENDIF -cIM ENDIF !(iflag_con.GE.3) THEN -c -c================================================================= -c================================================================= -c================================================================= -c INITIALISATION DES CHAMPS SUR LES SOUS SURFACES -c================================================================= -c - CALL histdef(nid_day, "tter", "Surface Temperature ter", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "tlic", "Surface Temperature lic", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "toce", "Surface Temperature oce", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "tsic", "Surface Temperature sic", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "t2mter", "Temp.tere 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "t2mter_min", "Temp.terre 2m min.", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . t2mincels, zstophy,zout) -c - CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . t2maxcels, zstophy,zout) -c - CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m", - . "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m", - . "m/s", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m", - . "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m", - . "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m", - . "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - DO nsrf = 1, nbsrf -C - call histdef(nid_day, "pourc_"//clnsurf(nsrf), - $ "% "//clnsurf(nsrf), "%", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_day, "fract_"//clnsurf(nsrf), - $ "Fraction "//clnsurf(nsrf), "1", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_day, "tsol_"//clnsurf(nsrf), - $ "Temperature "//clnsurf(nsrf), "K", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_day, "sens_"//clnsurf(nsrf), - $ "Sensible heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_day, "lat_"//clnsurf(nsrf), - $ "Latent heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_day, "taux_"//clnsurf(nsrf), - $ "Zonal wind stress "//clnsurf(nsrf),"Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) - - call histdef(nid_day, "tauy_"//clnsurf(nsrf), - $ "Meridional wind stress "//clnsurf(nsrf), "Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_day, "albe_"//clnsurf(nsrf), - $ "Albedo surf. "//clnsurf(nsrf), "-", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_day, "rugs_"//clnsurf(nsrf), - $ "Rugosite "//clnsurf(nsrf), "m", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - - -! FH Sorties specifiques pour Mellor et Yamada - if (iflag_pbl>1 .and. lev_histday.gt.10 ) then - call histdef(nid_day, "tke_"//clnsurf(nsrf), - $ "Max Turb. Kinetic Energy "//clnsurf(nsrf), "-", - $ iim,jj_nb,nhori, klev,1,klev,nvert, 32, - $ "ave(X)", zstophy,zout) - - call histdef(nid_day, "tke_max_"//clnsurf(nsrf), - $ "Max Turb. Kinetic Energy "//clnsurf(nsrf), "-", - $ iim,jj_nb,nhori, klev,1,klev,nvert, 32, - $ "t_max(X)", zstophy,zout) - endif - -C - END DO -C -c================================================================= -c -c FIN INITIALISATION DES CHAMPS SUR LES SOUS SURFACES -c -c================================================================= - ENDIF !lev_histday.GE.4 -c - IF(lev_histday.GE.5) THEN !lev_histday.GE.5 -c -c rajout sorties F. Aires - CALL histdef(nid_day, "tops0", "CS Solar rad. at TOA", - . "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "topl0", "CS IR rad. at TOA", - . "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "sols0", "CS Net Solar rad. at surf.", - . "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "soll0", "CS Net IR rad. at surface", - . "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "rneb", "Cloud fraction", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "dqpbl", "PBL dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "rnebcon", "Convective Cloud Fraction" - . , "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "dtwak", "Wake dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"lwcon","Cloud liquid water content", - . "kg/kg", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"iwcon","Cloud ice water content","kg/kg", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"lwp","Cloud water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"iwp","Cloud ice water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - - CALL histdef(nid_day, "cape", "Conv avlbl pot ener", "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_day, "wh", "Wake height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "ws", "Wake surface", "m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"meantaucld", - . "ISCCP mean cloud optical thickness","1", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"cldtau","Cloud optical thickness","1", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day,"cldemi","Cloud optical emissivity","1", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c -c - CALL histdef(nid_day, "cin", "Conv Inhibition", "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "wale", "Wake Available Energy", "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "walp", - . "Available Lifting Energy due to wake", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "blale", "PBL Available Energy", "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "blalp", - . "Available Lifting Energy due to PBL", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "wdt1", - . "Temp diff wake layer 1", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "wdq1", - . "Temp diff wake layer 1", "g/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -cIM rajout AMMA-MIP -c - CALL histdef(nid_day, "dtcon", "Convection dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "dqcon", "Convection dQ", "(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "rh2m", "Relative humidity at 2m", "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "qsat2m", "Saturant humidity at 2m", "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "tpot", - . "Surface air potential temperature", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_day, "tpote", - . "Surface air equivalent potential temperature", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histday.GE.5 -c================================================================= -c - CALL histend(nid_day) -c - ndex2d = 0 - ndex3d = 0 -c -c================================================================= -c$OMP END MASTER - ENDIF ! fin de test sur ok_journe Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histhf.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histhf.h (revision 1104) +++ (revision ) @@ -1,402 +1,0 @@ -! -! $Header$ -! - - IF (ok_hf) THEN -c$OMP MASTER -c - zstohf = ecrit_hf - zstophy = dtime - zstoday = ecrit_day - zout = ecrit_hf -c - idayref = day_ref - CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) - -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) -cym DO i = 1, iim -cym zx_lon(i,1) = rlon(i+1) -cym zx_lon(i,jjmp1) = rlon(i+1) -cym ENDDO - -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) - -cccIM CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat, -cym CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), -cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, -cym . nhori, nid_hf) - - CALL histbeg_phy("histhf", itau_phy, zjulian, dtime, - . nhori, nid_hf) - - CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", - . klev, presnivs/100., nvert) -c - - IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN -c - IF(lev_histhf.GE.1) THEN -c - CALL histdef(nid_hf, "aireTER","Grid area CONT","-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstohf,zout) -c - CALL histdef(nid_hf, "contfracATM","% sfce ter+lic ","-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstohf,zout) -c - CALL histdef(nid_hf, "contfracOR","% sfce terre OR", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstohf,zout) -c -c Champs 2D: -c - CALL histdef(nid_hf, "t2m", "Temperature 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "q2m", "Specific humidity", "kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "precip", "Precipitation", "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -cIM ENSEMBLES BEG - CALL histdef(nid_hf, "tsol", "Surface Temperature", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "slp", "Sea Level Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "u10m", "Vent zonal 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "v10m", "Vent meridien 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "wind10m","10-m wind speed","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c -c IF(k.GE.2) THEN -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."500") THEN - CALL histdef(nid_hf, "phi"//bb2, - . "Geopotential "//bb2//"mb", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) - ENDIF !bb2.EQ."500" - ENDDO !k=1, nlevSTD -c - ENDIF !lev_histhf.GE.1 -c - IF(lev_histhf.GE.2) THEN -c - CALL histdef(nid_hf, "cldt", "Total cloudiness", "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "SWnetOR", - . "Sfce net SW radiation OR", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "SWdownOR", - . "Sfce incident SW radiation OR", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "LWdownOR", - . "Sfce incident LW radiation OR", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - ENDIF !lev_histhf.GE.2 -c -cIM ENSEMBLES END -c - IF(lev_histhf.GE.3) THEN -c - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".or.bb2.EQ."700".OR. - $ bb2.EQ."500".or.bb2.EQ."200") THEN -c - CALL histdef(nid_hf, "t"//bb2, - . "Temperature "//bb2//"mb","K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - IF(bb2.NE."500") THEN - CALL histdef(nid_hf, "phi"//bb2, - . "Geopotential "//bb2//"mb", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) - ENDIF -c - CALL histdef(nid_hf, "q"//bb2, - . "Specific humidity "//bb2//"mb","kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "u"//bb2, - . "Zonal wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "v"//bb2, - . "Meridional wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - ENDIF !IF(bb2.EQ."850".or.bb2.EQ."700".OR. -c - ENDDO !nlevSTD -c - ENDIF !lev_histhf.GE.3 -c - IF(lev_histhf.GE.4) THEN -c -cIM sorties hf 3D -c -#undef histhf3d -#define histhf3d -#ifdef histhf3d -#include "ini_histhf3d.h" -#endif - ENDIF !lev_histhf.GE.4 -c - ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN -c - IF(lev_histhf.GE.1) THEN -c - DO k=1, nlevSTD -c -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".or.bb2.EQ."200") THEN -c - CALL histdef(nid_hf, "u"//bb2, - . "Zonal wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - CALL histdef(nid_hf, "v"//bb2, - . "Meridional wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - ENDIF !bb2.EQ."850".or.bb2.EQ."200" - ENDDO !k=1, nlevSTD -c - CALL histdef(nid_hf, "topl", - . "Outgoing longwave radiation", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "precip","Total precipitation rate", - . "kg/(s*m2)",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "slp", - . "Mean sea-level pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c -cIM 280504 BEG - ENDIF !(lev_histhf.GE.1) THEN -c - IF(lev_histhf.GE.2) THEN -c - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."500") THEN -c - CALL histdef(nid_hf, "t"//bb2, - . "Temperature "//bb2//"mb","K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - CALL histdef(nid_hf, "q"//bb2, - . "Specific humidity "//bb2//"mb","kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - ENDIF !bb2 -c - IF(bb2.EQ."500") THEN -c - CALL histdef(nid_hf, "phi"//bb2, - . "Geopotential "//bb2//"mb", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - CALL histdef(nid_hf, "w"//bb2, - . "Vertical motion "//bb2//"mb","Pa/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) - ENDIF !bb2.EQ."500" -c - IF(bb3.EQ."50") THEN -c - CALL histdef(nid_hf, "t"//bb3, - . "Temperature "//bb3//"mb","K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - CALL histdef(nid_hf, "u"//bb3, - . "Zonal wind "//bb3//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - CALL histdef(nid_hf, "v"//bb3, - . "Meridional wind "//bb3//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zstohf) -c - ENDIF !bb3 -c - ENDDO !k=1, nlevSTD -c - CALL histdef(nid_hf, "u10m", "Vent zonal 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "v10m", "Vent meridien 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "t2m", "Temperature 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "q2m", "Specific humidity", "kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstohf,zout) -c - CALL histdef(nid_hf, "cldt", "Total cloudiness", "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "taux", - $ "Zonal wind stress","Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "tauy", - $ "Meridional wind stress ", "Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "prw", "Precipitable water", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, -cIM 090904 . "ave(X)", zstohf,zout) - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "sens", "Sensible heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, -cIM 090904 . "ave(X)", zstohf,zout) - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_hf, "flat", "Latent heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstohf,zout) -c -c CALL histdef(nid_hf, "snow_mass", "Snow Mass", "kg/m2", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "SWdnSFC", "SWdn at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "SWupSFC", "SWup at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf,"LWdnSFC","Down. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf,"LWupSFC","Upwd. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "SWdnTOA", "SWdn at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstohf,zout) -c - CALL histdef(nid_hf, "SWupTOA", "SWup at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstohf,zout) -c - DO k=1, nbteta - CALL histdef(nid_hf, "PV"//ctetaSTD(k), - $ "Vorticite potentielle "//ctetaSTD(k)//"K", - $ "1/(Pa*s)",iim,jj_nb,nhori, 1,1,1, -99, - $ 32, "inst(X)", zstohf,zout) - ENDDO !k=1, nbteta -c -c planetary boundary layer height -c -c ENDIF !1.EQ.0 -c - ENDIF !(lev_histhf.GE.2) THEN -cIM 280504 END -c - ENDIF !type_run -c - CALL histend(nid_hf) -c -c$OMP END MASTER - ENDIF ! ok_hf Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histmth.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histmth.h (revision 1104) +++ (revision ) @@ -1,1953 +1,0 @@ -c -c $Header$ -c - IF (ok_mensuel) THEN -c$OMP MASTER -c - zstophy = dtime - zstomth = ecrit_mth !valeurs mensuelles "instantannees" - zstorad = dtime * FLOAT(radpas) !variables stockees toutes les 2h - zstohf = ecrit_hf !variables stockees toutes les 6h - zout = ecrit_mth !frequence des sorties : 1 val. par mois -c - idayref = day_ref - CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) -cym DO i = 1, iim -cym zx_lon(i,1) = rlon(i+1) -cym zx_lon(i,jjmp1) = rlon(i+1) -cym ENDDO - DO ll=1,klev - znivsig(ll)=float(ll) - ENDDO -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) -cym CALL histbeg("histmth.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), -cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, -cym . nhori, nid_mth) - - CALL histbeg_phy("histmth",itau_phy, zjulian, dtime, - . nhori, nid_mth) - - write(*,*)'Mensuel ', itau_phy, zjulian - CALL histvert(nid_mth, "presnivs", "Vertical levels", "mb", - . klev, presnivs/100., nvert) -c -! CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s", -! . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -! . "ave(X)", zstophy,zout) -! -! CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s", -! . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -! . "ave(X)", zstophy,zout) -c - IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN -c - IF(lev_histmth.GE.1) THEN -c - CALL histdef(nid_mth, "phis", - . "Surface geop. height", "m2/s2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "aire", "Grid area", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "pourc_"//clnsurf(is_ter), - . "% "//clnsurf(is_ter), "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "fract_"//clnsurf(is_ter), - . "Fraction "//clnsurf(is_ter), "1", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c -c Champs 2D: -c - CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tsol", "Surface Temperature", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "t2m", "Temperature 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c ENSEMBLES BEG -c CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.", -c . "K", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . t2mincels, zstophy,zout) -c -c CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.", -c . "K", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . t2maxcels, zstophy,zout) -c -c CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature", -c . "K", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c ENSEMBLES END - CALL histdef(nid_mth, "q2m", "Specific humidity 2m", "kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "qsurf", "Surface Air humidity", "kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - if (.not. ok_veget) then - CALL histdef(nid_mth, "qsol", "Soil watter content", "mm", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - endif -c -c CALL histdef(nid_mth, "ndayrain", -c . "Number of day with rain (liq+sol)", "-", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "inst(X)", zstomth,zout) -c - CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "plul", "Large-scale Precip.", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "pluc", "Convective Precip.", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "snow", "Snow fall", "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "evap", "Evaporation", "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tops0", "CS Solar rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupTOAclr", - . "SWup clear sky at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnTOAclr", - . "SWdn clear sky at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWup200", "SWup at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWup200clr", - . "SWup clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdn200", "SWdn at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdn200clr", - . "SWdn clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWup200", "LWup at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWup200clr", - . "LWup clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWdn200", "LWdn at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWdn200clr", - . "LWdn clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "radsol", "Rayonnement au sol", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupSFCclr", - . "SWup clear sky at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnSFCclr", - . "SWdn clear sky at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWupSFCclr", - . "CS Upwd. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWdnSFCclr", - . "Down. CS IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sens", "Sensible heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c Effets des aerosols -c - IF (ok_ade.OR.ok_aie) THEN - CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - endif -c -c CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting", - . "W/m2",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fqcalving","Ice Calving", - . "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fqfonte","Land ice melt", - . "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - - DO nsrf = 1, nbsrf - call histdef(nid_mth, "taux_"//clnsurf(nsrf), - $ "Zonal wind stress"//clnsurf(nsrf), "Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) - - call histdef(nid_mth, "tauy_"//clnsurf(nsrf), - $ "Meridional wind stress "//clnsurf(nsrf), "Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) - ENDDO -c - DO nsrf = 1, nbsrf -C - IF(nsrf.GE.2) THEN - call histdef(nid_mth, "pourc_"//clnsurf(nsrf), - $ "% "//clnsurf(nsrf), "%", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "fract_"//clnsurf(nsrf), - $ "Fraction "//clnsurf(nsrf), "1", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) - ENDIF !nsrf.GT.2 -C - call histdef(nid_mth, "tsol_"//clnsurf(nsrf), - $ "Temperature "//clnsurf(nsrf), "K", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "sens_"//clnsurf(nsrf), - $ "Sensible heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "lat_"//clnsurf(nsrf), - $ "Latent heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "flw_"//clnsurf(nsrf), - $ "LW "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "fsw_"//clnsurf(nsrf), - $ "SW "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "wbils_"//clnsurf(nsrf), - $ "Bilan sol "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "wbilo_"//clnsurf(nsrf), - $ "Bilan eau "//clnsurf(nsrf), "kg/(m2*s)", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C -cIM 250105 BEG - IF(1.EQ.0) THEN -C - call histdef(nid_mth, "evapour_"//clnsurf(nsrf), - $ "Evap*pourc "//clnsurf(nsrf), "kg/(s*m2)", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "prepour_"//clnsurf(nsrf), - $ "Precip*pourc "//clnsurf(nsrf), "kg/(s*m2)", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - ENDIF !(1.EQ.0) THEN -cIM 250105 END -C - END DO -c - CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldt", "Total cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ue", "Zonal energy transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ve", "Merid energy transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vq", "Merid humidity transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -cKE43 - IF(iflag_con.GE.3) THEN ! sb -c - CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "pbase", "Cld base pressure", "mb", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ptop", "Cld top pressure", "mb", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !iflag_con .GE. 3 -c34EK -cIM cf. AM 081204 BEG -c34EK -c HBTM2 - CALL histdef(nid_mth, "s_pblh", "Boundary Layer Height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_pblt", "t at Boundary Layer Height", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_lcl", "Condensation level", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_capCL", "Conv avlbl pot ener - . for ABL", "J/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_oliqCL", "Liq Water in BL", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_cteiCL", "Instability criteria - . (ABL)", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_therm", "Exces du thermique", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_trmb1", "deep_cape(HBTM2)", "J/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_trmb2", "inhibition (HBTM2)", "J/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_trmb3", "Point Omega (HBTM2)", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -cIM cf. AM 081204 END -c -c Champs interpolles sur des niveaux de pression - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700".OR. - $ bb2.EQ."500".OR.bb2.EQ."200") THEN -c - CALL histdef(nid_mth, "u"//bb2, - . "Zonal wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_mth, "v"//bb2, - . "Meridional wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_mth, "w"//bb2, - . "Vertical wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_mth, "phi"//bb2, - . "Geopotential "//bb2//"mb","m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR. - ENDDO -c -cIM diagnostiques flux ocean-atm ou ocean-glace de mer -cIM pour utilisation dans un modele de "slab" ocean -c - CALL histdef(nid_mth, "fluxo", - . "Flux turbulents ocean-atmosphere", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fluxg", - . "Flux turbulents ocean-glace de mer","W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "t_oce_sic", - . "Temp. mixte oce-sic","K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - IF (OCEAN.EQ.'force ') THEN -c - CALL histdef(nid_mth, "lmt_bils", - . "Bilan au sol atmosphere forcee", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ELSE IF (OCEAN.EQ.'slab ') THEN -c - CALL histdef(nid_mth, "slab_bils", - . "Bilan au sol Slab", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tslab", "Slab SST ", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "seaice", "Slab seaice", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "siceh", "Slab seaice height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF -c - ENDIF !lev_histmth.GE.1 -c - IF(lev_histmth.GE.2) THEN -c -c Champs 3D: -c -c - CALL histdef(nid_mth,"lwcon","Cloud liquid water content", - . "kg/kg", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "temp", "Air temperature", "K", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg", -c . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "geop", "Geopotential height", "m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vitw", "Vertical wind", "Pa/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "pres", "Air pressure", "Pa", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "rneb", "Cloud fraction", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction" - . , "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "rhum", "Relative humidity", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ozone", "Ozone concentration", "ppmv", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqphy", "Physics dQ", "(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histmth.GE.2 -c - IF(lev_histmth.GE.3) THEN -c - DO nsrf=1, nbsrf -c - call histdef(nid_mth, "albe_"//clnsurf(nsrf), - $ "Albedo surf. "//clnsurf(nsrf), "-", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "rugs_"//clnsurf(nsrf), - $ "Latent heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDDO !nsrf=1, nbsrf -c - CALL histdef(nid_mth, "albs", "Surface albedo", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histmth.GE.3 -c - IF(lev_histmth.GE.4) THEN -c -!FH Sorties pour la couche limite - if (iflag_pbl>1) then - CALL histdef(nid_mth, "tke","TKE","m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tke_max","TKE max","m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "t_max(X)", zstophy,zout) - endif -c - CALL histdef(nid_mth, "kz","Kz melange","m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "kz_max","Kz melange max","m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "t_max(X)", zstophy,zout) - - - CALL histdef(nid_mth, "clwcon", - . "Convective Cloud Liquid water content" - . , "kg/kg", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqdyn", "Dynamics dQ", "(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - - -c -c CALL histdef(nid_mth, "ducon", "Convection du", "m/s2", -c . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqcon", "Convection dQ", "(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlsc", "Condensation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlschr", - $ "Large-scale condensational heating rate", "K/s",iim,jj_nb - $ ,nhori, klev,1,klev,nvert, 32,"ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqlsc", "Condensation dQ", "(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqvdf","Boundary-layer dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqeva","Reevaporation dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_mth, "ratqs", "RATQS"," ", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - -c - CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_mth,"dqthe","Dry adjust. dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtajs", "Dry adjust. dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_mth,"dqajs","Dry adjust. dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - IF (ok_orodr) THEN - CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - ENDIF -C - IF (ok_orolf) THEN - CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - ENDIF -C -#if defined(INCA_AER) && defined(CPP_COUPLE) - CALL histdef(nid_mth, "tau", "cloud opt thickness", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "CCM1", "CCM1", "", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "CCM2", "CCM2", "", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "cldemi", "emissivite IR", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_ZERO", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_AER", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_NAT", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_AD", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_AI", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_ZERO", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_AER", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_AD", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_NAT", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -#endif -#ifndef INCA - if (nqmax.GE.3) THEN - DO iq=3,nqmax - iiq=niadv(iq) - CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - ENDDO - ENDIF -#endif -c - ENDIF !lev_histmth.GE.4 -c - ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN -c - IF(lev_histmth.GE.1) THEN -c - CALL histdef(nid_mth, "phis", "Surface geop. height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "aire", "Grid area", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "pourc_"//clnsurf(is_ter), - . "% "//clnsurf(is_ter), "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "fract_"//clnsurf(is_ter), - . "Fraction "//clnsurf(is_ter), "1", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "pourc_"//clnsurf(is_lic), - . "% "//clnsurf(is_lic), "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "fract_"//clnsurf(is_lic), - . "Fraction "//clnsurf(is_lic), "1", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "once", zstophy,zout) -c - CALL histdef(nid_mth, "pourc_"//clnsurf(is_sic), - . "% "//clnsurf(is_sic), "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fract_"//clnsurf(is_sic), - . "Fraction "//clnsurf(is_sic), "1", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "flat", "Latent heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "bilTOA", - . "Net radiation at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c -c CALL histdef(nid_mth, "tops01", -c . "TOA reflected clear-sky shortwave -c . radiation (method 1)", "W/m2", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtdia","dtdia","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtsw","dtsw","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlw","dtlw","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"dqthe","Dry adjust. dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtajs","dtajs","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlsc","dtlsc","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqdia","dqdia","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "duoli", - . "duoli","m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvoli", - . "dvoli","m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ducon", - . "ducon","m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvcon", - . "dvcon","m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dutot", - . "dutot","m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvtot", - . "dvtot","m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth, "cldtrue", -c . "TRUE Cloud fraction ","%", -c . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -c . "inst(X)", zout,zout) -c -c CALL histdef(nid_mth, "cldTOA", -c . "Cloud amount (satellite view)","%", -c . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -c . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth, "cldSFC", -c . "Cloud amount (surface view)","%", -c . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "GWDtaux", - . "GWD induced Ewd wind stress","Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "GWDtauy", - . "GWD induced Nwd wind stress","Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c Champs 2D: -c - CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c - CALL histdef(nid_mth, "tsol", "Surface Temperature", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "t2m", "Temperature 2m", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c -c CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.", -c . "K", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . t2mincels, zstophy,zout) -c -c CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.", -c . "K", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . t2maxcels, zstophy,zout) -c -c CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature", -c . "K", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c - CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - -c - CALL histdef(nid_mth, "q2m","Specific humidity 2m","kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c - CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c - CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c - CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstorad,zout) -c - CALL histdef(nid_mth, "qsurf","Surface Air humidity","kg/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - if (.not. ok_veget) then - CALL histdef(nid_mth, "qsol", "Soil watter content", "mm", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - endif -c - CALL histdef(nid_mth, "ndayrain", - . "Number of day with rain (liq+sol)", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zstomth,zout) -c - CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "plul", "Large-scale Precip.", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "pluc", "Convective Precip.", - . "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "snowf", "Snow fall", "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "evap", - . "Evaporation plus sublimation rate", "kg/(s*m2)", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tops0", "CS Solar rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupTOAclr", - . "SWup clear sky at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnTOAclr", - . "SWdn clear sky at TOA","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWup200", "SWup at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWup200clr", - . "SWup clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdn200", "SWdn at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdn200clr", - . "SWdn clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWup200", "LWup at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWup200clr", - . "LWup clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWdn200", "LWdn at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "LWdn200clr", - . "LWdn clear sky at 200mb","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "radsol", "Rayonnement au sol", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWupSFCclr", - . "SWup clear sky at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "SWdnSFCclr", - . "SWdn clear sky at surface","W/m2", - . iim,jj_nb,nhori, 1,1,1,-99, - . 32, "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWupSFCclr", - . "CS Upwd. IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"LWdnSFCclr", - . "Down. CS IR rad. at surface", - . "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "sens", "Sensible heat flux", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -c Effets des aerosols -c - IF (ok_ade.OR.ok_aie) THEN - CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - ENDIF -c -c CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa", -c . iim,jj_nb,nhori, 1,1,1, -99, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting", - . "W/m2",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fqcalving","Ice Calving", - . "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - DO nsrf = 1, nbsrf - call histdef(nid_mth, "taux_"//clnsurf(nsrf), - $ "Zonal wind stress"//clnsurf(nsrf), "Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) - - call histdef(nid_mth, "tauy_"//clnsurf(nsrf), - $ "Meridional wind stress "//clnsurf(nsrf), "Pa", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) - ENDDO -c - call histdef(nid_mth, "pourc_"//clnsurf(is_oce), - $ "% "//clnsurf(is_oce), "%", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "fract_"//clnsurf(is_oce), - $ "Fraction "//clnsurf(is_oce), "1", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - DO nsrf = 1, nbsrf -C - call histdef(nid_mth, "tsol_"//clnsurf(nsrf), - $ "Temperature "//clnsurf(nsrf), "K", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "sens_"//clnsurf(nsrf), - $ "Sensible heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "lat_"//clnsurf(nsrf), - $ "Latent heat flux "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "flw_"//clnsurf(nsrf), - $ "LW "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "fsw_"//clnsurf(nsrf), - $ "SW "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "wbils_"//clnsurf(nsrf), - $ "Bilan sol "//clnsurf(nsrf), "W/m2", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "wbilo_"//clnsurf(nsrf), - $ "Bilan eau "//clnsurf(nsrf), "kg/(m2*s)", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C -cIM 250105 BEG - IF(1.EQ.0) THEN -C - call histdef(nid_mth, "evapour_"//clnsurf(nsrf), - $ "Evap*pourc "//clnsurf(nsrf), "kg/(s*m2)", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - call histdef(nid_mth, "prepour_"//clnsurf(nsrf), - $ "Precip*pourc "//clnsurf(nsrf), "kg/(s*m2)", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -C - ENDIF !(1.EQ.0) THEN -cIM 250105 END -C - END DO -c - CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "cldt", "Total cloudiness", "%", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ue", "Zonal energy transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ve", "Merid energy transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vq", "Merid humidity transport", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -cKE43 - IF(iflag_con.GE.3) THEN ! sb -c - CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "pbase", "Cld base pressure", "mb", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ptop", "Cld top pressure", "mb", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !iflag_con .GE. 3 -c34EK -cIM cf. AM 081204 BEG -c34EK -c HBTM2 - CALL histdef(nid_mth, "s_pblh", "Boundary Layer Height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_pblt", "T at Boundary Layer Height", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_lcl", "Condensation level", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth,"s_capCL","Conv avlbl pot ener for ABL", - . "J/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_oliqCL", "Liq Water in BL", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth,"s_cteiCL","Instability criteria (ABL)", - . "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_therm", "Exces du thermique", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_trmb1", "deep_cape(HBTM2)", "J/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_trmb2", "inhibition (HBTM2)", "J/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "s_trmb3", "Point Omega (HBTM2)", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c -cIM cf. AM 081204 END -c -c Champs interpolles sur des niveaux de pression - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700" - $ .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN -c - CALL histdef(nid_mth, "u"//bb2, - . "Zonal wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_mth, "v"//bb2, - . "Meridional wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_mth, "w"//bb2, - . "Vertical wind "//bb2//"mb","m/s", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - CALL histdef(nid_mth, "phi"//bb2, - . "Geopotential "//bb2//"mb","m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "inst(X)", zout,zout) -c - ENDIF !(bb2.EQ."850".OR.bb2.EQ."700" -c - ENDDO !nlevSTD -c -cIM diagnostiques flux ocean-atm ou ocean-glace de mer -cIM pour utilisation dans un modele de "slab" ocean -c - CALL histdef(nid_mth, "fluxo", - . "Flux turbulents ocean-atmosphere", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "fluxg", - . "Flux turbulents ocean-glace de mer","W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "t_oce_sic", - . "Temp. mixte oce-sic","K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - IF (OCEAN.EQ.'force ') THEN -c - CALL histdef(nid_mth, "lmt_bils", - . "Bilan au sol atmosphere forcee", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ELSE IF (OCEAN.EQ.'slab ') THEN -c - CALL histdef(nid_mth, "slab_bils", - . "Bilan au sol Slab", "W/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tslab", "Slab SST ", "K", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "seaice", "Slab seaice", "kg/m2", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "siceh", "Slab seaice height", "m", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !OCEAN.EQ.slab/force -c - ENDIF !lev_histmth.GE.1 -c - IF(lev_histmth.GE.2) THEN -c -c Champs 3D: -c -c - CALL histdef(nid_mth,"lwcon","Cloud liquid water content", - . "kg/kg", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg", - . iim,jj_nb,nhori, klev,1,klev, nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "temp", "Air temperature", "K", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c -c CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg", -c . iim,jj_nb,nhori, klev,1,klev,nvert, 32, -c . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "geop", "Geopotential height", "m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "vitw", "Vertical wind", "Pa/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "pres", "Air pressure", "Pa", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "rneb", "Cloud fraction", "%", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction" - . , "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "rhum", "Relative humidity", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ozone", "Ozone concentration", "ppmv", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqphy","Physics dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histmth.GE.2 -c - IF(lev_histmth.GE.3) THEN -c - DO nsrf=1, nbsrf -c - call histdef(nid_mth, "albe_"//clnsurf(nsrf), - $ "Albedo surf. "//clnsurf(nsrf), "-", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - call histdef(nid_mth, "rugs_"//clnsurf(nsrf), - $ "Rugosite "//clnsurf(nsrf), "m", - $ iim,jj_nb,nhori, 1,1,1, -99, 32, - $ "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDDO !nsrf=1, nbsrf -c - CALL histdef(nid_mth, "albs", "Surface albedo", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -c - ENDIF !lev_histmth.GE.3 -c - IF(lev_histmth.GE.4) THEN -c -!FH Sorties pour la couche limite - if (iflag_pbl>1) then - CALL histdef(nid_mth, "tke","TKE","m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "tke_max","TKE max","m2/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "t_max(X)", zstophy,zout) - endif -c - CALL histdef(nid_mth, "kz","Kz melange","m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "kz_max","Kz melange max","m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "t_max(X)", zstophy,zout) - - - - - CALL histdef(nid_mth, "clwcon", - . "Convective Cloud Liquid water content" - . , "kg/kg", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqdyn","Dynamics dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqcon","Convection dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlschr", - $ "Large-scale condensational heating rate", "K/s", - $ iim,jj_nb - $ ,nhori, klev,1,klev,nvert, 32,"ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqlsc","Condensation dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dqvdf","Boundary-layer dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"dqeva","Reevaporation dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - - CALL histdef(nid_mth, "ratqs", "RATQS"," ", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - -c - CALL histdef(nid_mth, "dqajs","Dry adjust. dQ","(kg/kg)/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - IF (ok_orodr) THEN - CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - ENDIF -C - IF (ok_orolf) THEN - CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) -c - CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - ENDIF -C -#if defined(INCA_AER) && defined(CPP_COUPLE) - CALL histdef(nid_mth, "tau", "cloud opt thickness", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "CCM1", "CCM1", "", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "CCM2", "CCM2", "", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "cldemi", "emissivite IR", "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_ZERO", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_AER", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_NAT", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_AD", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOAAS_AI", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_ZERO", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_AER", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_AD", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) - CALL histdef(nid_mth, "SWTOACS_NAT", "?", "?", - . iim,jj_nb,nhori, 1,1,1, -99, 32, - . "ave(X)", zstophy,zout) -#endif -#ifndef INCA - if (nqmax.GE.3) THEN - DO iq=3,nqmax - iiq=niadv(iq) - CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-", - . iim,jj_nb,nhori, klev,1,klev,nvert, 32, - . "ave(X)", zstophy,zout) - ENDDO - ENDIF -#endif - - ENDIF !lev_histmth.GE.4 -c - ENDIF !type_run.EQ."CLIM".OR.type_run.EQ."ENSP") -c - CALL histend(nid_mth) -c - ndex2d = 0 - ndex3d = 0 -c -c$OMP END MASTER - ENDIF ! fin de test sur ok_mensuel Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histday.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histday.h (revision 1104) +++ (revision ) @@ -1,636 +1,0 @@ -c -c $Header$ -c - if (ok_journe) THEN -c - ndex2d = 0 - ndex3d = 0 -c -c Champs 2D: -c - itau_w = itau_phy + itap - -c temperature tendency due to moist convective processes - DO l=1, klev - DO i=1, klon - zx_tmp_fi3d(i,l)=d_t_con(i,l)/pdtphys - ENDDO !i - ENDDO !l -c - IF(lev_histday.GE.1) THEN -c - CALL histwrite_phy(nid_day,"phis",itau_w,pphis) - -c - CALL histwrite_phy(nid_day,"aire",itau_w,airephy) -c - DO i=1, klon - zx_tmp_fi2d(i)=pctsrf(i,is_ter)+pctsrf(i,is_lic) - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"contfracATM",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf(:,is_ter),zx_tmp_2d) - CALL histwrite_phy(nid_day,"contfracOR",itau_w, - & pctsrf(:,is_ter)) -c - - CALL histwrite_phy(nid_day,"dthmin",itau_w,dthmin) - CALL histwrite_phy(nid_day,"weakinv",itau_w,weak_inversion) - -cIM: 101003 : K/30min ==> K/s - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tsol",itau_w,zxtsol) -C -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2m",itau_w,zt2m) -c -c En attendant un eventuel debugage. - -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2m_min",itau_w,zt2m) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2m_max",itau_w,zt2m) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"plul",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_con(i) + snow_con(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"pluc",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_lsc,zx_tmp_2d) - CALL histwrite_phy(nid_day,"snowl",itau_w,snow_lsc) -c - IF(1.EQ.0) THEN -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_con,zx_tmp_2d) - CALL histwrite_phy(nid_day,"snowc",itau_w,snow_con) - ENDIF -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d) - CALL histwrite_phy(nid_day,"flat",itau_w,zxfluxlat) -c - DO i = 1, klon - zx_tmp_fi2d(i) = pctsrf(i,is_sic) - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"sicf",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zq2m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"q2m",itau_w,zq2m) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zu10m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"u10m",itau_w,zu10m) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zv10m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"v10m",itau_w,zv10m) -c - DO i=1, klon - zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"wind10m",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"wind10max",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - zx_tmp_fi2d(i) = paprs(i,1) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"psol",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - zx_tmp_fi2d(i) = (rain_fall(i) + snow_fall(i)) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"precip",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d) - CALL histwrite_phy(nid_day,"snowf",itau_w,snow_fall) -c -cIM: 140404 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d) -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) -c CALL histwrite(nid_day,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1, -c . ndex2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d) - CALL histwrite_phy(nid_day,"evap",itau_w,evap) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tops",itau_w,topsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) - CALL histwrite_phy(nid_day,"topl",itau_w,toplw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d) - CALL histwrite_phy(nid_day,"sols",itau_w,solsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d) - CALL histwrite_phy(nid_day,"soll",itau_w,sollw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d) - CALL histwrite_phy(nid_day,"radsol",itau_w,radsol) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d) - CALL histwrite_phy(nid_day,"cldl",itau_w,cldl) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d) - CALL histwrite_phy(nid_day,"cldm",itau_w,cldm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d) - CALL histwrite_phy(nid_day,"cldh",itau_w,cldh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) - CALL histwrite_phy(nid_day,"cldt",itau_w,cldt) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d) - CALL histwrite_phy(nid_day,"cldq",itau_w,cldq) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) - CALL histwrite_phy(nid_day,"prw",itau_w,prw) - -c Ecriture de champs dynamiques sur des niveaux de pression -c DO k=1, nlevENS - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700" - $ .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,1),zx_tmp_2d) - CALL histwrite_phy(nid_day,"u"//bb2,itau_w,usumSTD(:,k,1)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,1),zx_tmp_2d) - CALL histwrite_phy(nid_day,"v"//bb2,itau_w,vsumSTD(:,k,1)) -c - ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.bb2.EQ."500".OR.bb2.EQ."200") THEN -c -c w500 -c - IF(bb2.EQ."500") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,1),zx_tmp_2d) - CALL histwrite_phy(nid_day,"w"//bb2,itau_w,wsumSTD(:,k,1)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,1),zx_tmp_2d) - CALL histwrite_phy(nid_day,"phi"//bb2,itau_w,phisumSTD(:,k,1)) - - ENDIF !(bb2.EQ."500") THEN -c - ENDDO !nlevSTD -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) - CALL histwrite_phy(nid_day,"slp",itau_w,slp) - -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d) - CALL histwrite_phy(nid_day,"cape_max",itau_w,cape) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_day,"solldown",itau_w,sollwdown) -c - DO i=1, klon - zx_tmp_fi2d(i)=-1*sens(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"sens",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn(1 : klon, 1) - -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWdnSFC",itau_w,zx_tmp_fi2d) -c - IF (OCEAN.EQ.'force ') THEN -c - DO i=1, klon - IF((pctsrf(i,is_oce).GT.epsfra).OR. - . (pctsrf(i,is_sic).GT.epsfra)) THEN - zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+ - . fluxg(i)*pctsrf(i,is_sic) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"lmt_bils",itau_w, zx_tmp_fi2d) -c - ELSE IF (OCEAN.EQ.'slab ') THEN -c - DO i=1, klon - IF((pctsrf(i,is_oce).GT.epsfra).OR. - . (pctsrf(i,is_sic).GT.epsfra)) THEN - zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+ - . fluxg(i)*pctsrf(i,is_sic) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"slab_bils",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF(pctsrf(i,is_oce).GT.epsfra.OR. - $ pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i)=tslab(i) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO !i=1, klon -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tslab",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) - CALL histwrite_phy(nid_day,"seaice",itau_w,seaice) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) - CALL histwrite_phy(nid_day,"siceh",itau_w,seaice/1000.) -c - ENDIF !(OCEAN.EQ.'slab ') THEN -c - DO i=1, klon - IF (pctsrf(i,is_oce).GT.epsfra) THEN - zx_tmp_fi2d(i) = fluxo(i) - ELSE - zx_tmp_fi2d(i) = 0. - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"fluxo",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF (pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i) = fluxg(i) - ELSE - zx_tmp_fi2d(i) = 0. - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"fluxg",itau_w,zx_tmp_fi2d) -c - ENDIF !lev_histday.GE.1 -c - IF(lev_histday.GE.2) THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) - CALL histwrite_phy(nid_day,"bils",itau_w, bils) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) - CALL histwrite_phy(nid_day,"fder",itau_w,fder) -c - ENDIF !lev_histday.GE.2 -c - IF(lev_histday.GE.3) THEN -c================================================================= -c ECRITURE DES CHAMPS 3D -c================================================================= - -c -c Champs 3D: -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) - CALL histwrite_phy(nid_day,"temp",itau_w,t_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) - CALL histwrite_phy(nid_day,"ovap",itau_w,qx(:,:,ivap)) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) - CALL histwrite_phy(nid_day,"geop",itau_w,zphi) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) - CALL histwrite_phy(nid_day,"vitu",itau_w,u_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) - CALL histwrite_phy(nid_day,"vitv",itau_w,v_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) - CALL histwrite_phy(nid_day,"vitw",itau_w,omega) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) - CALL histwrite_phy(nid_day,"pres",itau_w,pplay) -c - CALL histwrite_phy(nid_day,"rhum",itau_w,zx_rh) - -cFin Wake parameters 2D -c Wake parameters 3D -c - print*,'SSS test2' -c if (1.eq.0) then - -c - ENDIF !lev_histday.GE.3 -c================================================================= -c FIN ECRITURE DES CHAMPS 3D -c================================================================= - IF(lev_histday.ge.4) THEN -c================================================================= -c -c ECRITURE DES CHAMPS SUR LES SOUS SURFACES -c -c================================================================= - zx_tmp_fi2d(1 : klon) = swup( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWupTOA",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swup( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWupSFC",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWdnTOA",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swup0( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWupTOAclr",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swup0( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWupSFCclr",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn0( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWdnTOAclr",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn0( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day, "SWdnSFCclr",itau_w,zx_tmp_fi2d) -c -cIM AMMA-MIP -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_day,"LWdnSFC",itau_w,sollwdown) -c - zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"LWupSFC",itau_w,zx_tmp_fi2d) -c -cIM IF (iflag_con.GE.3) THEN - if (ok_ISCCP) then -cIM ema_pct= 0. CALL gr_fi_ecrit(1, klon,iim,jjmp1, ema_pct,zx_tmp_2d) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, meanptop(:,1),zx_tmp_2d) - CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1)) - ENDIF -cIM ENDIF -c - zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d ,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tter",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_lic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tlic",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_oce) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"toce",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_sic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tsic",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2mter",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2mter_min",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2mter_max",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_lic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2mlic",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_oce) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2moce",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_sic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"t2msic",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"u10mter",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"v10mter",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_lic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"u10mlic",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_lic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"v10mlic",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_oce) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"u10moce",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_oce) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"v10moce",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_sic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"u10msic",itau_w,zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_sic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_day,"v10msic",itau_w,zx_tmp_fi2d) -C - DO nsrf = 1, nbsrf -C - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"pourc_"//clnsurf(nsrf),itau_w, - & zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"fract_"//clnsurf(nsrf),itau_w, - & zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"tsol_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"sens_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"lat_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"taux_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"tauy_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"albe_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_day,"rugs_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C -! FH Sorties specifiques pour Mellor et Yamada - if (iflag_pbl>1 .and. lev_histday.gt.10 ) then - - CALL histwrite_phy(nid_day,"tke_"//clnsurf(nsrf),itau_w, - $ pbl_tke(:,1:klev,nsrf)) - - CALL histwrite_phy(nid_day,"tke_max_"//clnsurf(nsrf),itau_w, - $ pbl_tke(:,1:klev,nsrf)) - endif - - END DO -c================================================================= -c FIN ECRITURE DES CHAMPS SUR LES SOUS SURFACES -c================================================================= - ENDIF !lev_histday.GE.4 -c - IF(lev_histday.GE.5) THEN !lev_histday.GE.5 -c -c rajout sorties F. Aires -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tops0",itau_w,topsw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d) - CALL histwrite_phy(nid_day,"topl0",itau_w,toplw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d) - CALL histwrite_phy(nid_day,"sols0",itau_w,solsw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d) - CALL histwrite_phy(nid_day,"soll0",itau_w, sollw0) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d) - CALL histwrite_phy(nid_day,"rneb",itau_w,cldfra) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) - CALL histwrite_phy(nid_day,"rnebcon",itau_w,rnebcon) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) - CALL histwrite_phy(nid_day,"lwcon",itau_w,flwc) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) - CALL histwrite_phy(nid_day,"iwcon",itau_w,fiwc) -c - zx_tmp_fi2d(1:klon) = flwp(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"lwp",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = fiwp(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"iwp",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1, meantaucld,zx_tmp_2d) - CALL histwrite_phy(nid_day,"meantaucld",itau_w,meantaucld) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldtau,zx_tmp_3d) - CALL histwrite_phy(nid_day,"cldtau",itau_w,cldtau) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldemi,zx_tmp_3d) - CALL histwrite_phy(nid_day,"cldemi",itau_w,cldemi) -c -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)= - s (d_q_vdf(1:klon,1:klev)+d_q_ajs(1:klon,1:klev))/pdtphys - CALL histwrite_phy(nid_day,"dqpbl",itau_w,zx_tmp_fi3d) - - CALL histwrite_phy(nid_day,"dtwak",itau_w,dt_wake) - - CALL histwrite_phy(nid_day,"cape",itau_w,cape) -c - CALL histwrite_phy(nid_day,"wh",itau_w,wake_h) -c - CALL histwrite_phy(nid_day,"ws",itau_w,wake_s) -c - CALL histwrite_phy(nid_day,"cin",itau_w,cin) - - CALL histwrite_phy(nid_day,"wale",itau_w,ale_wake) -c - CALL histwrite_phy(nid_day,"walp",itau_w,alp_wake) -c - CALL histwrite_phy(nid_day,"blale",itau_w,Ale_bl) -c - CALL histwrite_phy(nid_day,"blalp",itau_w,Alp_bl) - - CALL histwrite_phy(nid_day,"wdt1",itau_w,wake_deltat(:,1)) -c - CALL histwrite_phy(nid_day,"wdq1",itau_w,wake_deltaq(:,1)) -c - - zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_day,"dtcon",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_day,"dqcon",itau_w,zx_tmp_fi3d) -c - DO i=1, klon - zx_tmp_fi2d(i)=MIN(100.,rh2m(i)*100.) - ENDDO -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1, zx_tmp_2d,zx_tmp_2d) - CALL histwrite_phy(nid_day,"rh2m",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1, qsat2m,zx_tmp_2d) - CALL histwrite_phy(nid_day,"qsat2m",itau_w,qsat2m) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1, tpot,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tpot",itau_w,tpot) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1, tpote,zx_tmp_2d) - CALL histwrite_phy(nid_day,"tpote",itau_w,tpote) -c - ENDIF !lev_histday.GE.5 -c================================================================= -c================================================================= -c================================================================= -c - if (ok_sync) then -c$OMP MASTER - call histsync(nid_day) -c$OMP END MASTER - endif - - ENDIF Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histhf.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histhf.h (revision 1104) +++ (revision ) @@ -1,356 +1,0 @@ -! -! $Header$ -! - if (ok_hf) then - -c - ndex2d = 0 - ndex3d = 0 -c - itau_w = itau_phy + itap -c - IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN -c - IF(lev_histhf.GE.1) THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, paire_ter, zx_tmp_2d) - CALL histwrite_phy(nid_hf,"aireTER",itau_w,paire_ter) -c - DO i=1, klon - zx_tmp_fi2d(i)=pctsrf(i,is_ter)+pctsrf(i,is_lic) - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_hf,"contfracATM",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf(:,is_ter),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"contfracOR",itau_w, - . pctsrf(:,is_ter)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"t2m",itau_w,zt2m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"q2m",itau_w,zq2m) -c - DO i = 1, klon - zx_tmp_fi2d(i) = paprs(i,1) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"psol",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"precip",itau_w,zx_tmp_fi2d) -c -c ENSEMBLES BEG -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"tsol",itau_w,zxtsol) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"slp",itau_w,slp) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"u10m",itau_w,zu10m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"v10m",itau_w,zv10m) -c - DO i=1, klon - zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"wind10m",itau_w,zx_tmp_fi2d) -c - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."500") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"phi"//bb2,itau_w, philevSTD(:,k)) - ENDIF !bb2.EQ."500" - ENDDO -c - ENDIF !lev_histhf.GE.1 -c - IF(lev_histhf.GE.2) THEN -c -cIM 140904 BEG - DO i = 1, klon - zx_tmp_fi2d(i) = cldt(i)*100. - ENDDO -cIM 140904 END -cIM 140904 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"cldt",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_hf,"SWnetOR",itau_w, zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol1(1:klon)) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_hf,"SWdownOR",itau_w, zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"LWdownOR",itau_w,sollwdown) -c -c - ENDIF !lev_histhf.GE.2 -c - IF(lev_histhf.GE.3) THEN -c - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700".OR. - $ bb2.EQ."500".OR.bb2.EQ."200") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"t"//bb2,itau_w, tlevSTD(:,k)) -c - IF(bb2.NE."500") THEN !bb2.NE."500" -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,philevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"phi"//bb2,itau_w,philevSTD(:,k)) - ENDIF !bb2.NE."500" -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"q"//bb2,itau_w, qlevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"u"//bb2,itau_w,ulevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"v"//bb2,itau_w, vlevSTD(:,k)) -c - ENDIF !bb2.EQ."850".OR.bb2.EQ."700" - ENDDO !nlevENS -c - IF(1.EQ.0) THEN -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"cdrm",itau_w,cdragm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"cdrh",itau_w,cdragh) - ENDIF !(1.EQ.0) THEN -c - ENDIF !lev_histhf.GE.3 -c - IF(lev_histhf.GE.4) THEN -c -#undef histhf3d -#define histhf3d -#ifdef histhf3d -#include "write_histhf3d.h" -#endif -c - ENDIF !lev_histhf.GE.4 -c - ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN -c - IF(lev_histhf.GE.1) THEN -c - DO k=1, nlevSTD -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".or.bb2.EQ."200") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"u"//bb2,itau_w,ulevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"v"//bb2,itau_w,vlevSTD(:,k)) -c - ENDIF !bb2.EQ."850".or.bb2.EQ."200" -c - ENDDO !nlevSTD -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"topl",itau_w,toplw) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"precip",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"slp",itau_w,slp) -c -cIM 280504 BEG - ENDIF !(lev_histhf.GE.1) THEN -c - IF(lev_histhf.GE.2) THEN -c - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".or.bb2.EQ."500") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"t"//bb2,itau_w,tlevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"q"//bb2,itau_w, qlevSTD(:,k)) -c - ENDIF !bb2.EQ."850".or.bb2.EQ."500" -c - IF(bb2.EQ."500") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"phi"//bb2,itau_w, philevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"w"//bb2,itau_w, wlevSTD(:,k)) -c - ENDIF !bb2.EQ."500" -c - IF(bb3.EQ."50") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"t"//bb3,itau_w, tlevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"u"//bb3,itau_w, ulevSTD(:,k)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) - CALL histwrite_phy(nid_hf,"v"//bb3,itau_w, vlevSTD(:,k)) -c - ENDIF !bb3.EQ."50" -c - ENDDO !k=1, nlevSTD -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"u10m",itau_w,zu10m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"v10m",itau_w,zv10m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"t2m",itau_w, zt2m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"q2m",itau_w,zq2m) -c - DO i = 1, klon - zx_tmp_fi2d(i) = paprs(i,1) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"psol",itau_w,zx_tmp_fi2d) -c -cIM 140904 BEG - DO i = 1, klon - zx_tmp_fi2d(i) = cldt(i)*100. - ENDDO -cIM 140904 END -cIM 140904 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"cldt",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = zxfluxu(1 : klon, 1) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_hf,"taux",itau_w,zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = zxfluxv(1 : klon, 1) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_hf,"tauy",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"prw",itau_w,prw) -c - zx_tmp_fi2d(1:klon)=-1*sens(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"sens",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"flat",itau_w,zxfluxlat) -c -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) -c CALL histwrite_phy(nid_hf,"snow_mass",itau_w,zsnow_mass) -c - zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf, "SWdnSFC",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf, "SWupSFC",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_hf,"LWdnSFC",itau_w,sollwdown) -c -cIM 090904 zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon) -cIM 130904 zx_tmp_fi2d(1:klon)=sollw(1:klon)-sollwdown(1:klon) - zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_hf,"LWupSFC",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf, "SWdnTOA",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_hf, "SWupTOA",itau_w,zx_tmp_fi2d) -c - IF (is_sequential) THEN -cym CALL gr_fi_ecrit(nbteta,klon,iim,jjmp1,PVteta,zx_tmp_3dte) - DO k=1, nbteta - zx_tmp_fi2d(1:klon) = PVteta(1:klon,k) - CALL histwrite_phy(nid_hf,"PV"//ctetaSTD(k), - . itau_w,zx_tmp_fi2d) - ENDDO !k=1, nbteta - ENDIF -c -c -c planetary boundary layer height -c -c ENDIF !1.EQ.0 -c - ENDIF !(lev_histhf.GE.2) THEN -cIM 280504 END -c - ENDIF !type_run -c - IF (ok_sync) THEN -c$OMP MASTER - call histsync(nid_hf) -c$OMP END MASTER - ENDIF - - ENDIF Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histins.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histins.h (revision 1104) +++ (revision ) @@ -1,234 +1,0 @@ -! -! $Header$ -! - IF (ok_instan) THEN -c - ndex2d = 0 - ndex3d = 0 -c -c Champs 2D: -c - itau_w = itau_phy + itap - -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"phis",itau_w,pphis) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"aire",itau_w,airephy) - - DO i = 1, klon - zx_tmp_fi2d(i) = paprs(i,1) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"psol",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"precip",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"plul",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_con(i) + snow_con(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"pluc",itau_w,zx_tmp_fi2d) - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"tsol",itau_w,zxtsol) -cccIM -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d) - CALL histwrite_phy(nid_ins,"t2m",itau_w,zt2m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d) - CALL histwrite_phy(nid_ins,"q2m",itau_w,zq2m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d) - CALL histwrite_phy(nid_ins,"u10m",itau_w,zu10m) -C -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d) - CALL histwrite_phy(nid_ins,"v10m",itau_w,zv10m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"snow",itau_w,snow_fall) - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"cdrm",itau_w,cdragm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"cdrh",itau_w,cdragh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"topl",itau_w,toplw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"evap",itau_w,evap) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"sols",itau_w,solsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"soll",itau_w,sollw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"solldown",itau_w,sollwdown) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"bils",itau_w,bils) -c - zx_tmp_fi2d(1:klon)=-1*sens(1:klon) -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"sens",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"fder",itau_w,fder) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d) - CALL histwrite_phy(nid_ins,"dtsvdfo",itau_w,d_ts(:,is_oce)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d) - CALL histwrite_phy(nid_ins,"dtsvdft",itau_w,d_ts(:,is_ter)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d) - CALL histwrite_phy(nid_ins,"dtsvdfg",itau_w, d_ts(:,is_lic)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d) - CALL histwrite_phy(nid_ins,"dtsvdfi",itau_w,d_ts(:,is_sic)) - - DO nsrf = 1, nbsrf -CXXX - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"pourc_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"fract_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"sens_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"lat_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"tsol_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"taux_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"tauy_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"rugs_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_ins,"albe_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - END DO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol1,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"albs",itau_w,albsol1) - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol2,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"albslw",itau_w,albsol2) - -c -cIM: 140404 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d) -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) -c CALL histwrite_phy(nid_ins,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1, -c . ndex2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"rugs",itau_w,zxrugs) -c -cIM cf. AM 081204 BEG -c -cHBTM2 -c -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_pblh",itau_w,s_pblh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_pblt",itau_w,s_pblt) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_lcl",itau_w,s_lcl) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_capCL",itau_w,s_capCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_oliqCL",itau_w,s_oliqCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_cteiCL",itau_w,s_cteiCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_therm",itau_w,s_therm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_trmb1",itau_w,s_trmb1) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_trmb2",itau_w,s_trmb2) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) - CALL histwrite_phy(nid_ins,"s_trmb3",itau_w,s_trmb3) -c -cIM cf. AM 081204 END -c -c Champs 3D: -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"temp",itau_w,t_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"vitu",itau_w,u_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"vitv",itau_w,v_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"geop",itau_w,zphi) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"pres",itau_w,pplay) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"dtvdf",itau_w,d_t_vdf) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d) - CALL histwrite_phy(nid_ins,"dqvdf",itau_w,d_q_vdf) - -c - if (ok_sync) then -c$OMP MASTER - call histsync(nid_ins) -c$OMP END MASTER - endif - ENDIF Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histmth.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histmth.h (revision 1104) +++ (revision ) @@ -1,1927 +1,0 @@ -c -c $Header$ -c - IF (ok_mensuel) THEN -c - ndex2d = 0 - ndex3d = 0 - - itau_w = itau_phy + itap - -c temperature tendency due to moist convective processes - DO l=1, klev - DO i=1, klon - zx_tmp_fi3d(i,l)=d_t_con(i,l)/pdtphys - ENDDO !i - ENDDO !l -c - -c - IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN -c - IF(lev_histmth.GE.1) THEN -c -c Champs 2D: -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"phis",itau_w,pphis) -C -cIM 310804 CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"aire",itau_w,airephy) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_ter),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_ter),itau_w, - $ zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"slp",itau_w,slp) - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tsol",itau_w,zxtsol) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"t2m",itau_w,zt2m) -c -c ENSEMBLES BEG -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"t2m_min",itau_w,zt2m) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"t2m_max",itau_w,zt2m) -c -c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsoil(:,1,is_ter),zx_tmp_2d) -c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsol(:,is_ter),zx_tmp_2d) -c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ztsol,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"tsoil",itau_w,zx_tmp_2d, -c . iim*jjmp1,ndex2d) -c - DO i=1, klon - zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"wind10m",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = pctsrf(i,is_sic) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sicf",itau_w,zx_tmp_fi2d) -c -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) -c CALL histwrite_phy(nid_mth,"temp",itau_w,zx_tmp_3d, -c . iim*jjmp1*klev,ndex3d) -c -c ENSEMBLES END -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"q2m",itau_w,zq2m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"u10m",itau_w,zu10m) -C -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"v10m",itau_w,zv10m) -C - DO i = 1, klon - zx_tmp_fi2d(i) = paprs(i,1) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"psol",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"qsurf",itau_w,zxqsurf) -c - if (.not. ok_veget) then -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"qsol",itau_w,qsol) - endif -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"precip",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"ndayrain",itau_w,nday_rain) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"plul",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_con(i) + snow_con(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pluc",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"snow",itau_w,snow_fall) -c -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) -c CALL histwrite(nid_mth,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1, -c . ndex2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"evap",itau_w,evap) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tops",itau_w,topsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tops0",itau_w,topsw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"topl",itau_w,toplw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"topl0",itau_w,toplw0) -c - zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupTOA",itau_w,zx_tmp_fi2d) -c -c - zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupTOAclr",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnTOA",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWup200",itau_w,SWup200) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWup200clr",itau_w,SWup200clr) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWdn200",itau_w,SWdn200) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWdn200clr",itau_w,SWdn200clr) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWup200",itau_w,LWup200) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWup200clr",itau_w,LWup200clr) -c - zx_tmp_fi2d(1:klon)=-1*LWdn200(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdn200",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon)=-1*LWdn200clr(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdn200clr",itau_w,zx_tmp_fi2d) -c -c200 END -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sols",itau_w,solsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sols0",itau_w,solsw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"soll",itau_w,sollw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"radsol",itau_w,radsol) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"soll0",itau_w,sollw0) -c -c zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupSFC",itau_w,zx_tmp_fi2d) -c -c zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupSFCclr",itau_w,zx_tmp_fi2d) -c -c zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnSFC",itau_w,zx_tmp_fi2d) -c -c zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_fi2d) -c -cIM 080904 zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon) -cIM 130904 zx_tmp_fi2d(1:klon)=sollw(1:klon)-sollwdown(1:klon) - zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWupSFC",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - sollwdownclr(i)=-1.*lwdn0(i,1) - ENDDO !i=1, klon - -cIM 080904 zx_tmp_fi2d(1:klon)=sollw0(1:klon)+sollwdownclr(1:klon) -cIM 130904 zx_tmp_fi2d(1:klon)=sollw0(1:klon)-sollwdownclr(1:klon) - zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWupSFCclr",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdnSFC",itau_w,sollwdown) -c -c DO i=1, klon -cIM 080904 sollwdownclr(i)=lwdn0(i,1) -c sollwdownclr(i)=-1.*lwdn0(i,1) -c ENDDO !i=1, klon -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"bils",itau_w,bils) -c - zx_tmp_fi2d(1:klon)=-1*sens(1:klon) -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sens",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fder",itau_w,fder) -c -c -c DO i = 1, klon -c zx_tmp_fi2d(i) = fluxu(i,1) -c ENDDO -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) -c CALL histwrite(nid_mth,"frtu",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) -c -c DO i = 1, klon -c zx_tmp_fi2d(i) = fluxv(i,1) -c ENDDO -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) -c CALL histwrite(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) -c -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ffonte",itau_w,zxffonte) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fqcalving",itau_w,zxfqcalving) - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqfonte,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fqfonte",itau_w,zxfqfonte) - - DO nsrf = 1, nbsrf - zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"taux_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tauy_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) - ENDDO -c - DO nsrf = 1, nbsrf -CYYY - IF(nsrf.GE.2) THEN - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(nsrf),itau_w, - & zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fract_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) - ENDIF !nsrf.GT.2 -C - zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tsol_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sens_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"lat_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"flw_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fsw_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"wbils_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"wbilo_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - IF(1.EQ.0) THEN -C - zx_tmp_fi2d(1:klon) = fevap(1:klon,nsrf)*pctsrf(1:klon,nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"evapour_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1:klon) = (rain_fall(1:klon) + snow_fall(1:klon)) - $ *pctsrf(1:klon,nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"prepour_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - ENDIF !(1.EQ.0) THEN -C - END DO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cdrm",itau_w,cdragm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cdrh",itau_w,cdragh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldl",itau_w,cldl) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldm",itau_w,cldm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldh",itau_w,cldh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldt",itau_w,cldt) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldq",itau_w,cldq) -c - zx_tmp_fi2d(1:klon) = flwp(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"lwp",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = fiwp(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"iwp",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ue",itau_w,ue) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ve",itau_w,ve) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"uq",itau_w,uq) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"vq",itau_w,vq) -cKE43 - IF (iflag_con.GE.3) THEN ! sb -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cape",itau_w,cape) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pbase",itau_w,pbase) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ptop",itau_w,ema_pct) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fbase",itau_w,ema_cbmf) -c -c34EK -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"prw",itau_w,prw) -c - ENDIF !iflag_con.GE.3 -c -c -cIM cf. AM 081204 BEG -cHBTM2 -c -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_pblh",itau_w,s_pblh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_pblt",itau_w,s_pblt) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_lcl",itau_w,s_lcl) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_capCL",itau_w,s_capCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_oliqCL",itau_w,s_oliqCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_cteiCL",itau_w,s_cteiCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_therm",itau_w,s_therm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_trmb1",itau_w,s_trmb1) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_trmb2",itau_w,s_trmb2) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_trmb3",itau_w,s_trmb3) -c -cIM cf. AM 081204 END -c -c Champs interpolles sur des niveaux de pression - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700".OR. - $ bb2.EQ."500".OR.bb2.EQ."200") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"u"//bb2,itau_w,usumSTD(:,k,2)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"v"//bb2,itau_w,vsumSTD(:,k,2)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"w"//bb2,itau_w,wsumSTD(:,k,2)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"phi"//bb2,itau_w,phisumSTD(:,k,2)) -c - ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR. - ENDDO !nlevSTD -c - DO i=1, klon - IF (pctsrf(i,is_oce).GT.epsfra) THEN - zx_tmp_fi2d(i) = fluxo(i) - ELSE - zx_tmp_fi2d(i) = 0. - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fluxo",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF (pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i) = fluxg(i) - ELSE - zx_tmp_fi2d(i) = 0. - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fluxg",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF (pctsrf(i,is_oce).GT.epsfra.OR. - . pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i) = (ftsol(i, is_oce) * pctsrf(i,is_oce)+ - . ftsol(i, is_sic) * pctsrf(i,is_sic))/ - . (pctsrf(i,is_oce)+pctsrf(i,is_sic)) - ELSE - zx_tmp_fi2d(i) = 273.15 - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"t_oce_sic",itau_w,zx_tmp_fi2d) -c - IF (OCEAN.EQ.'force ') THEN -c - DO i=1, klon - IF((pctsrf(i,is_oce).GT.epsfra).OR. - . (pctsrf(i,is_sic).GT.epsfra)) THEN - zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+ - . fluxg(i)*pctsrf(i,is_sic) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"lmt_bils",itau_w,zx_tmp_fi2d) -c - ELSE IF (OCEAN.EQ.'slab ') THEN -c - DO i=1, klon - IF((pctsrf(i,is_oce).GT.epsfra).OR. - . (pctsrf(i,is_sic).GT.epsfra)) THEN - zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+ - . fluxg(i)*pctsrf(i,is_sic) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"slab_bils",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF(pctsrf(i,is_oce).GT.epsfra.OR. - $ pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i)=tslab(i) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO !i=1, klon -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tslab",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"seaice",itau_w,seaice) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"siceh",itau_w, seaice/1000.) -c - ENDIF !OCEAN.EQ.force/slab -c - ENDIF !lev_histmth.GE.1 -c - IF(lev_histmth.GE.2) THEN -c -c Champs 3D: -C -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"lwcon",itau_w,flwc) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"iwcon",itau_w,fiwc) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"temp",itau_w,t_seri) -c -c#ifdef histmthNMC -c#include "write_histmthNMC.h" -c#endif -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ovap",itau_w,qx(:,:,ivap)) -c -c zx_tmp_fi3d(1:klon,1:klev)=qx(1:klon,1:klev,ivap)/ -c . (1-qx(1:klon,1:klev,ivap)) -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) -c CALL histwrite(nid_mth,"wvap",itau_w,zx_tmp_3d, -c . iim*jjmp1*klev,ndex3d) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"geop",itau_w,zphi) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"vitu",itau_w,u_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"vitv",itau_w,v_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"vitw",itau_w,omega) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"pres",itau_w,pplay) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"rneb",itau_w,cldfra) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"rnebcon",itau_w,rnebcon) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"rhum",itau_w,zx_rh) - - DO k=1, klev - DO i=1, klon -cIM 151004 zx_tmp_fi3d(i,k)=MAX(wo(i,k),1.0e-12)*RG/46.6968 -c $ /(paprs(i,k)-paprs(i,k+1)) -c $ *(paprs(i,1)/101325.0) -c zx_tmp2_fi3d(i,k)=MAX(wo(i,k)*1.0e+6,1.0e-6)*RG/46.6968 - zx_tmp_fi3d(i,k)=wo(i,k)*RG/46.6968 - $ /(paprs(i,k)-paprs(i,k+1)) - $ *(paprs(i,1)/101325.0) - ENDDO !i - ENDDO !k -c -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d) -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp2_fi3d,zx_tmp_3d) -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ozone",itau_w,zx_tmp_fi3d) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtphy",itau_w,d_t) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap), -cym . zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqphy",itau_w, d_qx(:,:,ivap)) -cIM 22.03.04 END -c - ENDIF !lev_histmth.GE.2 -c - IF(lev_histmth.GE.3) THEN -c - DO nsrf=1, nbsrf -c - zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"albe_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"rugs_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ages_"//clnsurf(nsrf),itau_w - $ ,zx_tmp_fi2d) -c - ENDDO !nsrf=1, nbsrf -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol1,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"albs",itau_w,albsol1) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol2,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"albslw",itau_w,albsol2) -c - ENDIF !lev_histmth.GE.3 -c -c - IF(lev_histmth.GE.4) THEN -c -c FH Sorties pour la couche limite - CALL histwrite_phy(nid_mth,"kz",itau_w,ycoefh) - CALL histwrite_phy(nid_mth,"kz_max",itau_w,ycoefh) - - if(iflag_pbl>1) then - zx_tmp_fi3d=0. - do nsrf=1,nbsrf - do k=1,klev - zx_tmp_fi3d(:,k)=zx_tmp_fi3d(:,k) - , +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf) - enddo - enddo - CALL histwrite_phy(nid_mth,"tke",itau_w,zx_tmp_fi3d) - CALL histwrite_phy(nid_mth,"tke_max",itau_w,zx_tmp_fi3d) - endif - - - -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"clwcon",itau_w,clwcon0) - - IF (iflag_con.GE.3) THEN -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"Ma",itau_w,Ma) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"upwd",itau_w,upwd) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dnwd",itau_w,dnwd) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dnwd0",itau_w,dnwd0) -c - ENDIF !iflag_con.GE.3 -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtdyn",itau_w,d_t_dyn) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqdyn",itau_w,d_q_dyn) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtcon",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqcon",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_lsc(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlsc",itau_w,zx_tmp_fi3d) -cIM: 071003 -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+ - . d_t_eva(1:klon,1:klev))/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlschr",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqlsc",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtvdf",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqvdf",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dteva",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_eva(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqeva",itau_w,zx_tmp_fi3d) -c - zpt_conv = 0. - where (ptconv) zpt_conv = 1. -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ptconv",itau_w,zpt_conv) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ratqs",itau_w,ratqs) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_ajsb(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtajs",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_ajsb(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqajs",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtthe",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqthe",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtswr",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtsw0",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlwr",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlw0",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : deja en K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev) -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtec",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_u_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"duvdf",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvvdf",itau_w,zx_tmp_fi3d) -c - IF (ok_orodr) THEN - zx_tmp_fi3d(1:klon,1:klev)=d_u_oro(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"duoro",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_oro(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvoro",itau_w,zx_tmp_fi3d) -c - ENDIF -C - IF (ok_orolf) THEN - zx_tmp_fi3d(1:klon,1:klev)=d_u_lif(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dulif",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_lif(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvlif",itau_w,zx_tmp_fi3d) - ENDIF -C -#if defined(INCA_AER) && defined(CPP_COUPLE) - CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau) - CALL histwrite_phy(nid_mth,"CCM1",itau_w,ccm(:,:,1)) - CALL histwrite_phy(nid_mth,"CCM2",itau_w,ccm(:,:,2)) - CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi) - CALL histwrite_phy(nid_mth,"cldemi",itau_w,cldemi) - CALL histwrite_phy(nid_mth,"SWTOAAS_ZERO",itau_w,topsw_inca(:,1)) - CALL histwrite_phy(nid_mth,"SWTOAAS_AER",itau_w,topsw_inca(:,2)) - CALL histwrite_phy(nid_mth,"SWTOAAS_NAT",itau_w,topsw_inca(:,3)) - CALL histwrite_phy(nid_mth,"SWTOAAS_AD",itau_w,topswad_inca(:)) - CALL histwrite_phy(nid_mth,"SWTOAAS_AI",itau_w,topswai_inca(:)) - CALL histwrite_phy(nid_mth,"SWTOACS_ZERO",itau_w,topsw0_inca(:,1)) - CALL histwrite_phy(nid_mth,"SWTOACS_AER",itau_w,topsw0_inca(:,2)) - CALL histwrite_phy(nid_mth,"SWTOACS_AD",itau_w,topswad0_inca(:)) - CALL histwrite_phy(nid_mth,"SWTOACS_NAT",itau_w,topsw0_inca(:,3)) -#endif -#ifndef INCA - IF (nqmax.GE.3) THEN - DO iq=3,nqmax -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d) - CALL histwrite_phy(nid_mth,tnom(iq),itau_w,qx(:,:,iq)) - ENDDO - ENDIF -#endif -c - ENDIF !lev_histmth.GE.4 -c - ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN -c - IF(lev_histmth.GE.1) THEN -c -c Champs 2D: -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis/RG,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"phis",itau_w,pphis/RG) -C -cIM 310804 CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"aire",itau_w,airephy) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_ter),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_ter),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_lic)* 100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_lic),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_lic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_lic),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_sic)* 100. -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_sic),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_sic) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_sic),itau_w, - $ zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"flat",itau_w,zxfluxlat) -c - zx_tmp_fi2d(1 : klon) = topsw(1:klon)-toplw(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"bilTOA",itau_w,zx_tmp_fi2d) -c -c IF(itap.EQ.ecrit_mth) THEN -c DO i=1, klon -c IF(nday_clr(i).GT.0.) THEN -c tops01(i)=tops01(i)/nday_clr(i) -c ELSE -c tops01(i)=1.e+20 -c ENDIF -c ENDDO -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, tops01,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"tops01",itau_w,zx_tmp_2d, -c . iim*jjmp1,ndex2d) -c ENDIF !itap.EQ.ecrit_mth -c -c220404 BEG -c -c temperature tendency due to total diabatic heating - DO l=1, klev - DO i=1, klon - d_t(i,l) = (t_seri(i,l)-t(i,l))/dtime - ENDDO !i - ENDDO !l -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtdia",itau_w,d_t) -c -c temperature tendency due to SW radiation - DO l=1, klev - DO i=1, klon - zx_tmp_fi3d(i,l)=heat(i,l)/RDAY - ENDDO !i - ENDDO !l -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtsw",itau_w,zx_tmp_fi3d) -c -c temperature tendency due to LW radiation - DO l=1, klev - DO i=1, klon - zx_tmp_fi3d(i,l)=-1*cool(i,l)/RDAY - ENDDO !i - ENDDO !l -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlw",itau_w,zx_tmp_fi3d) -c - -c -c temperature tendency due to large scale precipitation - DO l=1, klev - DO i=1, klon - zx_tmp_fi3d(i,l)=d_t_lsc(i,l)/pdtphys - ENDDO !i - ENDDO !l -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlsc",itau_w,zx_tmp_fi3d) -c -c total moisture tendency due to diabatic processes - DO l=1, klev - DO i=1, klon - d_qx(i,l,ivap) = ( q_seri(i,l) - qx(i,l,ivap) ) / dtime - zx_tmp_fi3d(i,l)=d_qx(i,l,ivap) - ENDDO !i - ENDDO !l -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1, zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqdia",itau_w,zx_tmp_fi3d) -c -cBEG 210404 BEG -c - IF(ok_orodr.AND.ok_orolf) THEN - DO k = 1, klev - DO i = 1, klon - d_u_oli(i,k) = (d_u_oro(i,k) + d_u_lif(i,k))/pdtphys - d_v_oli(i,k) = (d_v_oro(i,k) + d_v_lif(i,k))/pdtphys - ENDDO - ENDDO - ENDIF !(ok_orodr.AND.ok_orolf) THEN -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_u_oli,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"duoli",itau_w,d_u_oli) -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_v_oli,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvoli",itau_w,d_v_oli) -c - zx_tmp_fi3d(1:klon,1:klev)=d_u_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ducon",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvcon",itau_w,zx_tmp_fi3d) -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_u,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dutot",itau_w,d_u) -c -cym CALL gr_fi_ecrit(klev, klon,iim,jjmp1,d_v,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvtot",itau_w,d_v) - -cEND 210404 END -c -c cldtrue -c CALL gr_fi_ecrit(klev, klon,iim,jjmp1,cldtrue,zx_tmp_3d) -c CALL histwrite_phy(nid_mth,"cldtrue",itau_w,zx_tmp_3d, -c $ iim*jjmp1*klev,ndex3d) -c -c CALL gr_fi_ecrit(klev, klon,iim,jjmp1,cldTOA,zx_tmp_3d) -c CALL histwrite_phy(nid_mth,"cldTOA",itau_w,zx_tmp_3d, -c $ iim*jjmp1*klev,ndex3d) -c -c CALL gr_fi_ecrit(klev, klon,iim,jjmp1,cldSFC,zx_tmp_3d) -c CALL histwrite_phy(nid_mth,"cldSFC",itau_w,zx_tmp_3d, -c $ iim*jjmp1*klev,ndex3d) -c - DO i=1, klon -cIM 151004 zx_tmp_fi2d(i)=GWDtaux1(i,1)-GWDtaux0(i,1) - zx_tmp_fi2d(i)=zustrdr(i)+zustrli(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"GWDtaux",itau_w,zx_tmp_fi2d) -c - DO i=1, klon -cIM 151004 zx_tmp_fi2d(i)=GWDtauy1(i,1)-GWDtauy0(i,1) - zx_tmp_fi2d(i)=zvstrdr(i)+zvstrli(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"GWDtauy",itau_w,zx_tmp_fi2d) -c -c220404 END -cAMIP2 END -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"slp",itau_w,slp) - -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tsol",itau_w,zxtsol) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"t2m",itau_w,zt2m) -c -c ENSEMBLES BEG -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"t2m_min",itau_w,zt2m) -c -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"t2m_max",itau_w,zt2m) -c -c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsoil(:,1,is_ter),zx_tmp_2d) -c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsol(:,is_ter),zx_tmp_2d) -c CALL gr_fi_ecrit(1,klon,iim,jjmp1,ztsol,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"tsoil",itau_w,zx_tmp_2d, -c . iim*jjmp1,ndex2d) -c - DO i=1, klon - zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"wind10m",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = pctsrf(i,is_sic) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sicf",itau_w,zx_tmp_fi2d) -c -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) -c CALL histwrite_phy(nid_mth,"temp",itau_w,zx_tmp_3d, -c . iim*jjmp1*klev,ndex3d) -c -c ENSEMBLES END -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"q2m",itau_w,zq2m) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"u10m",itau_w,zu10m) -C -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"v10m",itau_w,zv10m) -C - DO i = 1, klon - zx_tmp_fi2d(i) = paprs(i,1) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"psol",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"qsurf",itau_w,zxqsurf) -c - if (.not. ok_veget) then -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"qsol",itau_w,qsol) - endif -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"precip",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"ndayrain",itau_w,nday_rain) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"plul",itau_w,zx_tmp_fi2d) -c - DO i = 1, klon - zx_tmp_fi2d(i) = rain_con(i) + snow_con(i) - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pluc",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"snowf",itau_w,snow_fall) -c -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1, -c . ndex2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"evap",itau_w,evap) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tops",itau_w,topsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tops0",itau_w,topsw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"topl",itau_w,toplw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"topl0",itau_w,toplw0) -c - zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupTOA",itau_w,zx_tmp_fi2d) -c -c - zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupTOAclr",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnTOA",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, klevp1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWup200",itau_w,SWup200) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWup200clr",itau_w,SWup200clr) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWdn200",itau_w,SWdn200) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"SWdn200clr",itau_w,SWdn200clr) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWup200",itau_w,LWup200) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWup200clr",itau_w,LWup200clr) -c - zx_tmp_fi2d(1:klon)=-1*LWdn200(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdn200",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon)=-1*LWdn200clr(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdn200clr",itau_w,zx_tmp_fi2d) -c -c200 END -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sols",itau_w,solsw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sols0",itau_w,solsw0) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"soll",itau_w,sollw) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, radsol,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"radsol",itau_w,radsol) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"soll0",itau_w,sollw0) -c -c zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupSFC",itau_w,zx_tmp_fi2d) -c -c zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWupSFCclr",itau_w,zx_tmp_fi2d) -c -c zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnSFC",itau_w,zx_tmp_fi2d) -c -c zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1) - zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 ) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_fi2d) -c -cIM 080904 zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon) -cIM 130904 zx_tmp_fi2d(1:klon)=sollw(1:klon)-sollwdown(1:klon) - zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWupSFC",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - sollwdownclr(i)=-1.*lwdn0(i,1) - ENDDO !i=1, klon -c -cIM 080904 zx_tmp_fi2d(1:klon)=sollw0(1:klon)+sollwdownclr(1:klon) -cIM 130904 zx_tmp_fi2d(1:klon)=sollw0(1:klon)-sollwdownclr(1:klon) - zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWupSFCclr",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdnSFC",itau_w,sollwdown) -c -c DO i=1, klon -cIM 08004 sollwdownclr(i)=lwdn0(i,1) -c sollwdownclr(i)=-1.*lwdn0(i,1) -c ENDDO !i=1, klon -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr) -c effets des aerosols -c - IF (ok_ade.OR.ok_aie) THEN - zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon) - CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d) -c - zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon) - CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d) -c - zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon) - CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d) -c - zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon) - CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d) - endif - -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"bils",itau_w,bils) -c - zx_tmp_fi2d(1:klon)=-1*sens(1:klon) -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sens",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fder",itau_w,fder) -c -c Effets des aerosols -c - IF (ok_ade.OR.ok_aie) THEN - zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon) - CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon) - CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon) - CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon) - CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_fi2d) - ENDIF -c -c -c DO i = 1, klon -c zx_tmp_fi2d(i) = fluxu(i,1) -c ENDDO -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"frtu",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) -c -c DO i = 1, klon -c zx_tmp_fi2d(i) = fluxv(i,1) -c ENDDO -c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) -c CALL histwrite_phy(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) -c -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ffonte",itau_w,zxffonte) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fqcalving",itau_w,zxfqcalving) -c - DO nsrf = 1, nbsrf - zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"taux_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tauy_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) - ENDDO -c - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, is_oce)*100. -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_oce),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, is_oce) -cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fract_"//clnsurf(is_oce),itau_w, - $ zx_tmp_fi2d) -c - DO nsrf = 1, nbsrf -CYYY -C - zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tsol_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"sens_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"lat_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"flw_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fsw_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"wbils_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"wbilo_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - IF(1.EQ.0) THEN -C - zx_tmp_fi2d(1:klon) = fevap(1:klon,nsrf)*pctsrf(1:klon,nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"evapour_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1:klon) = (rain_fall(1:klon) + snow_fall(1:klon)) - $ *pctsrf(1:klon,nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"prepour_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - ENDIF !(1.EQ.0) THEN -C - END DO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cdrm",itau_w,cdragm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cdrh",itau_w,cdragh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldl",itau_w,cldl) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldm",itau_w,cldm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldh",itau_w,cldh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt*100.,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldt",itau_w,cldt*100.) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cldq",itau_w,cldq) -c - zx_tmp_fi2d(1:klon) = flwp(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"lwp",itau_w,zx_tmp_fi2d) -c - zx_tmp_fi2d(1:klon) = fiwp(1:klon) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"iwp",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ue",itau_w,ue) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ve",itau_w,ve) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"uq",itau_w,uq) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"vq",itau_w,vq) -cKE43 - IF (iflag_con.GE.3) THEN ! sb -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"cape",itau_w,cape) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"pbase",itau_w,pbase) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ptop",itau_w,ema_pct) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fbase",itau_w,ema_cbmf) -c -c34EK -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"prw",itau_w,prw) -c - ENDIF !iflag_con.GE.3 -c -cIM cf. AM 081204 BEG -cHBTM2 -c -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_pblh",itau_w,s_pblh) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_pblt",itau_w,s_pblt) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_lcl",itau_w,s_lcl) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_capCL",itau_w,s_capCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_oliqCL",itau_w,s_oliqCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_cteiCL",itau_w,s_cteiCL) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_therm",itau_w,s_therm) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_trmb1",itau_w,s_trmb1) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_trmb2",itau_w,s_trmb2) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"s_trmb3",itau_w,s_trmb3) -c -cIM cf. AM 081204 END -c -c Champs interpolles sur des niveaux de pression -c DO k=1, nlevENS - DO k=1, nlevSTD -c -c bb=clevSTD(k) -c -c IF(k.GE.2) THEN - IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) - IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) -c aa=clevSTD(k) -c bb=aa(1:lnblnk1(aa)) -c ENDIF -c - IF(bb2.EQ."850".OR.bb2.EQ."700" - $ .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"u"//bb2,itau_w,usumSTD(:,k,2)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"v"//bb2,itau_w,vsumSTD(:,k,2)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,wsumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"w"//bb2,itau_w,wsumSTD(:,k,2)) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,phisumSTD(:,k,2),zx_tmp_2d) - CALL histwrite_phy(nid_mth,"phi"//bb2,itau_w,phisumSTD(:,k,2)) -c - ENDIF !(bb2.EQ."850".OR.bb2.EQ."700" - ENDDO !nlevSTD -c - DO i=1, klon - IF (pctsrf(i,is_oce).GT.epsfra) THEN - zx_tmp_fi2d(i) = fluxo(i) - ELSE - zx_tmp_fi2d(i) = 0. - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fluxo",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF (pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i) = fluxg(i) - ELSE - zx_tmp_fi2d(i) = 0. - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"fluxg",itau_w,zx_tmp_fi2d) -c - DO i=1, klon - IF (pctsrf(i,is_oce).GT.epsfra.OR. - . pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i) = (ftsol(i, is_oce) * pctsrf(i,is_oce)+ - . ftsol(i, is_sic) * pctsrf(i,is_sic))/ - . (pctsrf(i,is_oce)+pctsrf(i,is_sic)) - ELSE - zx_tmp_fi2d(i) = 273.15 - ENDIF - ENDDO -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"t_oce_sic",itau_w,zx_tmp_fi2d) -c - IF (OCEAN.EQ.'force ') THEN -c - DO i=1, klon - IF((pctsrf(i,is_oce).GT.epsfra).OR. - . (pctsrf(i,is_sic).GT.epsfra)) THEN - zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+ - . fluxg(i)*pctsrf(i,is_sic) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"lmt_bils",itau_w, - . zx_tmp_fi2d) -c - ELSE IF (OCEAN.EQ.'slab ') THEN -c -c - DO i=1, klon - IF((pctsrf(i,is_oce).GT.epsfra).OR. - . (pctsrf(i,is_sic).GT.epsfra)) THEN - zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+ - . fluxg(i)*pctsrf(i,is_sic) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"slab_bils",itau_w, - . zx_tmp_fi2d) -c - DO i=1, klon - IF(pctsrf(i,is_oce).GT.epsfra.OR. - $ pctsrf(i,is_sic).GT.epsfra) THEN - zx_tmp_fi2d(i)=tslab(i) - ELSE - zx_tmp_fi2d(i) = 1.E+20 - ENDIF - ENDDO !i=1, klon -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"tslab",itau_w,zx_tmp_fi2d) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"seaice",itau_w,seaice) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, seaice/1000.,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"siceh",itau_w,seaice/1000.) -c - ENDIF !OCEAN.EQ.force/slab -c - ENDIF !lev_histmth.GE.1 -c - IF(lev_histmth.GE.2) THEN -c -c Champs 3D: -C -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"lwcon",itau_w,flwc) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"iwcon",itau_w,fiwc) -c -c#ifdef histmthNMC -c#include "write_histmthNMC.h" -c#endif -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ovap",itau_w, qx(:,:,ivap)) -c -c zx_tmp_fi3d(1:klon,1:klev)=qx(1:klon,1:klev,ivap)/ -c . (1-qx(1:klon,1:klev,ivap)) -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) -c CALL histwrite_phy(nid_mth,"wvap",itau_w,zx_tmp_3d, -c . iim*jjmp1*klev,ndex3d) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"geop",itau_w,zphi) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"vitu",itau_w,u_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"vitv",itau_w,v_seri) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"vitw",itau_w,omega) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"pres",itau_w,pplay) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra*100., zx_tmp_3d) - CALL histwrite_phy(nid_mth,"rneb",itau_w,cldfra*100.) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"rnebcon",itau_w,rnebcon) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"rhum",itau_w,zx_rh) -c - DO k=1, klev - DO i=1, klon -cIM 151004 zx_tmp_fi3d(i,k)=MAX(wo(i,k),1.0e-12)*RG/46.6968 -c $ /(paprs(i,k)-paprs(i,k+1)) -c $ *(paprs(i,1)/101325.0) -c zx_tmp2_fi3d(i,k)=MAX(wo(i,k)*1.0e+6,1.0e-6)*RG/46.6968 - zx_tmp_fi3d(i,k)=wo(i,k)*RG/46.6968 - $ /(paprs(i,k)-paprs(i,k+1)) - $ *(paprs(i,1)/101325.0) - ENDDO !i - ENDDO !k -c -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d) -c CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp2_fi3d,zx_tmp_3d) -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ozone",itau_w,zx_tmp_fi3d) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtphy",itau_w,d_t) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap),zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqphy",itau_w,d_qx(:,:,ivap)) -c - ENDIF !lev_histmth.GE.2 -c - IF(lev_histmth.GE.3) THEN -c - DO nsrf=1, nbsrf -c - zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"albe_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -C - zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) - CALL histwrite_phy(nid_mth,"rugs_"//clnsurf(nsrf),itau_w, - $ zx_tmp_fi2d) -c - zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf) -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"ages_"//clnsurf(nsrf),itau_w - $ ,agesno) -c - ENDDO !nsrf=1, nbsrf -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol1,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"albs",itau_w,albsol1) -c -cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol2,zx_tmp_2d) - CALL histwrite_phy(nid_mth,"albslw",itau_w,albsol2) -c - ENDIF !lev_histmth.GE.3 -c -c - IF(lev_histmth.GE.4) THEN -c -c FH Sorties pour la couche limite - CALL histwrite_phy(nid_mth,"kz",itau_w,ycoefh) - CALL histwrite_phy(nid_mth,"kz_max",itau_w,ycoefh) - - if(iflag_pbl>1) then - zx_tmp_fi3d=0. - do nsrf=1,nbsrf - do k=1,klev - zx_tmp_fi3d(:,k)=zx_tmp_fi3d(:,k) - , +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf) - enddo - enddo - CALL histwrite_phy(nid_mth,"tke",itau_w,zx_tmp_fi3d) - CALL histwrite_phy(nid_mth,"tke_max",itau_w,zx_tmp_fi3d) - endif - - - -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"clwcon",itau_w,clwcon0) -c - IF (iflag_con.GE.3) THEN -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"Ma",itau_w,Ma) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"upwd",itau_w,upwd) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dnwd",itau_w,dnwd) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dnwd0",itau_w,dnwd0) -c - ENDIF !iflag_con.GE.3 -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtdyn",itau_w,d_t_dyn) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqdyn",itau_w,d_q_dyn) -c -cIM: 101003 : K/30min ==> K/s -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqcon",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+ - . d_t_eva(1:klon,1:klev))/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlschr",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqlsc",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtvdf",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqvdf",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dteva",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_eva(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqeva",itau_w,zx_tmp_fi3d) -c - zpt_conv = 0. - where (ptconv) zpt_conv = 1. -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ptconv",itau_w,zpt_conv) -c -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d) - CALL histwrite_phy(nid_mth,"ratqs",itau_w,ratqs) -cIM: 101003 : K/30min ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_ajsb(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtajs",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_ajsb(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqajs",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/30min ==> K/s -c - zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dqthe",itau_w,zx_tmp_fi3d) -c -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtswr",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtsw0",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlwr",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : K/day ==> K/s - zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)/RDAY -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtlw0",itau_w,zx_tmp_fi3d) -c -cIM: 101003 : deja en K/s - zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev) -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dtec",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_u_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"duvdf",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_vdf(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvvdf",itau_w,zx_tmp_fi3d) -c - IF (ok_orodr) THEN - zx_tmp_fi3d(1:klon,1:klev)=d_u_oro(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"duoro",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_oro(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvoro",itau_w,zx_tmp_fi3d) -c - ENDIF -C - IF (ok_orolf) THEN - zx_tmp_fi3d(1:klon,1:klev)=d_u_lif(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dulif",itau_w,zx_tmp_fi3d) -c - zx_tmp_fi3d(1:klon,1:klev)=d_v_lif(1:klon,1:klev)/pdtphys -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d) - CALL histwrite_phy(nid_mth,"dvlif",itau_w,zx_tmp_fi3d) - ENDIF -C -#if defined(INCA_AER) && defined(CPP_COUPLE) - CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau) - CALL histwrite_phy(nid_mth,"CCM1",itau_w,ccm(:,:,1)) - CALL histwrite_phy(nid_mth,"CCM2",itau_w,ccm(:,:,2)) - CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi) - CALL histwrite_phy(nid_mth,"cldemi",itau_w,cldemi) - CALL histwrite_phy(nid_mth,"SWTOAAS_ZERO",itau_w,topsw_inca(:,1)) - CALL histwrite_phy(nid_mth,"SWTOAAS_AER",itau_w,topsw_inca(:,2)) - CALL histwrite_phy(nid_mth,"SWTOAAS_NAT",itau_w,topsw_inca(:,3)) - CALL histwrite_phy(nid_mth,"SWTOAAS_AD",itau_w,topswad_inca(:)) - CALL histwrite_phy(nid_mth,"SWTOAAS_AI",itau_w,topswai_inca(:)) - CALL histwrite_phy(nid_mth,"SWTOACS_ZERO",itau_w,topsw0_inca(:,1)) - CALL histwrite_phy(nid_mth,"SWTOACS_AER",itau_w,topsw0_inca(:,2)) - CALL histwrite_phy(nid_mth,"SWTOACS_AD",itau_w,topswad0_inca(:)) - CALL histwrite_phy(nid_mth,"SWTOACS_NAT",itau_w,topsw0_inca(:,3)) -#endif -#ifndef INCA - IF (nqmax.GE.3) THEN - DO iq=3,nqmax -cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d) - CALL histwrite_phy(nid_mth,tnom(iq),itau_w,qx(:,:,iq)) - ENDDO - ENDIF -#endif -c - ENDIF !lev_histmth.GE.4 -c - ENDIF !(type_run.EQ."AMIP") -c - if (ok_sync) then -c$OMP MASTER - call histsync(nid_mth) -c$OMP END MASTER - endif -c - ENDIF !ok_mensuel