Changeset 1398 for LMDZ4/trunk/libf/phylmd/ini_histdayNMC.h
- Timestamp:
- Jun 4, 2010, 6:56:18 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/ini_histdayNMC.h
r1374 r1398 30 30 c 31 31 IF(lev_histdayNMC.EQ.nlevSTD) THEN 32 CALL histvert(nid_daynmc, "plev", "pressure", " Pa",33 . nlevSTD, rlevSTD , nvert)32 CALL histvert(nid_daynmc, "plev", "pressure", "mb", 33 . nlevSTD, rlevSTD/100., nvert,"down") 34 34 ELSE IF(lev_histdayNMC.EQ.nlevSTD8) THEN 35 CALL histvert(nid_daynmc, "plev", "pressure", " Pa",36 . nlevSTD8, rlevSTD8 , nvert)35 CALL histvert(nid_daynmc, "plev", "pressure", "mb", 36 . nlevSTD8, rlevSTD8/100., nvert,"down") 37 37 ENDIF 38 ccc 38 c 39 cIM Astuce MAF: remplacer inst par ave pour les variables NMC pour avoir 40 cIM le time_counter et les bounds 41 c 39 42 ccc Champs 3D interpolles sur des niveaux de pression du NMC 40 43 ccc … … 51 54 . "Valeurs non-definies","-", 52 55 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 53 . " inst(X)", zout,zout)56 . "ave(X)", zout,zout) 54 57 c 55 58 CALL histdef(nid_daynmc, "ta", 56 59 . "Air temperature","K", 57 60 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 58 . " inst(X)", zout,zout)61 . "ave(X)", zout,zout) 59 62 c 60 63 CALL histdef(nid_daynmc, "zg", 61 64 . "Geopotential height", "m", 62 65 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 63 . " inst(X)", zout,zout)66 . "ave(X)", zout,zout) 64 67 c 65 68 CALL histdef(nid_daynmc, "hus", 66 69 . "Specific humidity","1", 67 70 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 68 . " inst(X)", zout,zout)71 . "ave(X)", zout,zout) 69 72 c 70 73 CALL histdef(nid_daynmc, "hur", 71 74 . "Relative humidity", "%", 72 75 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 73 . " inst(X)", zout,zout)76 . "ave(X)", zout,zout) 74 77 c 75 78 CALL histdef(nid_daynmc, "ua", 76 79 . "Eastward wind","m s-1", 77 80 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 78 . " inst(X)", zout,zout)81 . "ave(X)", zout,zout) 79 82 c 80 83 CALL histdef(nid_daynmc, "va", 81 84 . "Northward wind","m s-1", 82 85 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 83 . " inst(X)", zout,zout)86 . "ave(X)", zout,zout) 84 87 c 85 88 CALL histdef(nid_daynmc, "wap", 86 89 . "Lagrangian tendency of air pressure","Pa s-1", 87 90 . iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32, 88 . " inst(X)", zout,zout)91 . "ave(X)", zout,zout) 89 92 c 90 93 ELSE IF(lev_histdayNMC.EQ.nlevSTD8) THEN … … 93 96 . "Valeurs non-definies","-", 94 97 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 95 . " inst(X)", zout,zout)98 . "ave(X)", zout,zout) 96 99 c 97 100 CALL histdef(nid_daynmc, "ta", 98 101 . "Air temperature","K", 99 102 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 100 . " inst(X)", zout,zout)103 . "ave(X)", zout,zout) 101 104 c 102 105 CALL histdef(nid_daynmc, "zg", 103 106 . "Geopotential height", "m", 104 107 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 105 . " inst(X)", zout,zout)108 . "ave(X)", zout,zout) 106 109 c 107 110 CALL histdef(nid_daynmc, "hus", 108 111 . "Specific humidity","1", 109 112 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 110 . " inst(X)", zout,zout)113 . "ave(X)", zout,zout) 111 114 c 112 115 CALL histdef(nid_daynmc, "hur", 113 116 . "Relative humidity", "%", 114 117 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 115 . " inst(X)", zout,zout)118 . "ave(X)", zout,zout) 116 119 c 117 120 CALL histdef(nid_daynmc, "ua", 118 121 . "Eastward wind","m s-1", 119 122 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 120 . " inst(X)", zout,zout)123 . "ave(X)", zout,zout) 121 124 c 122 125 CALL histdef(nid_daynmc, "va", 123 126 . "Northward wind","m s-1", 124 127 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 125 . " inst(X)", zout,zout)128 . "ave(X)", zout,zout) 126 129 c 127 130 CALL histdef(nid_daynmc, "wap", 128 131 . "Lagrangian tendency of air pressure","Pa s-1", 129 132 . iim,jj_nb,nhori, nlevSTD8,1,nlevSTD8, nvert, 32, 130 . " inst(X)", zout,zout)133 . "ave(X)", zout,zout) 131 134 c 132 135 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.