Changeset 825 for LMDZ4/trunk/libf
- Timestamp:
- Aug 3, 2007, 3:08:17 PM (17 years ago)
- Location:
- LMDZ4/trunk/libf/dyn3d
- Files:
-
- 2 edited
-
leapfrog.F (modified) (1 diff)
-
write_paramLMDZ_dyn.h (modified) (13 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/leapfrog.F
r773 r825 185 185 PARAMETER (testita = 9) 186 186 187 integer itau_w ! pas de temps ecriture = itap + itau_phy 188 189 187 190 itaufin = nday*day_step 188 191 itaufinp1 = itaufin +1 -
LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h
r792 r825 1 1 c 2 2 ndex2d = 0 3 itau_ dyn=itau_dyn+itau3 itau_w=itau_dyn+itau 4 4 c 5 5 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level) 6 CALL histwrite(nid_ctesGCM, "prt_level", itau_ dyn,6 CALL histwrite(nid_ctesGCM, "prt_level", itau_w, 7 7 . zx_tmp_2d,iip1*jjp1,ndex2d) 8 8 c 9 9 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(dayref) 10 CALL histwrite(nid_ctesGCM, "dayref", itau_ dyn,10 CALL histwrite(nid_ctesGCM, "dayref", itau_w, 11 11 . zx_tmp_2d,iip1*jjp1,ndex2d) 12 12 c 13 13 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(anneeref) 14 CALL histwrite(nid_ctesGCM, "anneeref", itau_ dyn,14 CALL histwrite(nid_ctesGCM, "anneeref", itau_w, 15 15 . zx_tmp_2d,iip1*jjp1,ndex2d) 16 16 c 17 17 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(raz_date) 18 CALL histwrite(nid_ctesGCM, "raz_date", itau_ dyn,18 CALL histwrite(nid_ctesGCM, "raz_date", itau_w, 19 19 . zx_tmp_2d,iip1*jjp1,ndex2d) 20 20 c 21 21 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nday) 22 CALL histwrite(nid_ctesGCM, "nday", itau_ dyn,22 CALL histwrite(nid_ctesGCM, "nday", itau_w, 23 23 . zx_tmp_2d,iip1*jjp1,ndex2d) 24 24 c 25 25 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(day_step) 26 CALL histwrite(nid_ctesGCM, "day_step", itau_ dyn,26 CALL histwrite(nid_ctesGCM, "day_step", itau_w, 27 27 . zx_tmp_2d,iip1*jjp1,ndex2d) 28 28 c 29 29 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iperiod) 30 CALL histwrite(nid_ctesGCM, "iperiod", itau_ dyn,30 CALL histwrite(nid_ctesGCM, "iperiod", itau_w, 31 31 . zx_tmp_2d,iip1*jjp1,ndex2d) 32 32 c 33 33 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iapp_tracvl) 34 CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_ dyn,34 CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_w, 35 35 . zx_tmp_2d,iip1*jjp1,ndex2d) 36 36 c 37 37 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iconser) 38 CALL histwrite(nid_ctesGCM, "iconser", itau_ dyn,38 CALL histwrite(nid_ctesGCM, "iconser", itau_w, 39 39 . zx_tmp_2d,iip1*jjp1,ndex2d) 40 40 c 41 41 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iecri) 42 CALL histwrite(nid_ctesGCM, "iecri", itau_ dyn,42 CALL histwrite(nid_ctesGCM, "iecri", itau_w, 43 43 . zx_tmp_2d,iip1*jjp1,ndex2d) 44 44 c 45 45 zx_tmp_2d(1:iip1,1:jjp1)=periodav 46 CALL histwrite(nid_ctesGCM, "periodav", itau_ dyn,46 CALL histwrite(nid_ctesGCM, "periodav", itau_w, 47 47 . zx_tmp_2d,iip1*jjp1,ndex2d) 48 48 c 49 49 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(idissip) 50 CALL histwrite(nid_ctesGCM, "idissip", itau_ dyn,50 CALL histwrite(nid_ctesGCM, "idissip", itau_w, 51 51 . zx_tmp_2d,iip1*jjp1,ndex2d) 52 52 c … … 56 56 zx_tmp_2d(1:iip1,1:jjp1)=0. 57 57 ENDIF 58 CALL histwrite(nid_ctesGCM, "lstardis", itau_ dyn,58 CALL histwrite(nid_ctesGCM, "lstardis", itau_w, 59 59 . zx_tmp_2d,iip1*jjp1,ndex2d) 60 60 c 61 61 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergdiv) 62 CALL histwrite(nid_ctesGCM, "nitergdiv", itau_ dyn,62 CALL histwrite(nid_ctesGCM, "nitergdiv", itau_w, 63 63 . zx_tmp_2d,iip1*jjp1,ndex2d) 64 64 c 65 65 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergrot) 66 CALL histwrite(nid_ctesGCM, "nitergrot", itau_ dyn,66 CALL histwrite(nid_ctesGCM, "nitergrot", itau_w, 67 67 . zx_tmp_2d,iip1*jjp1,ndex2d) 68 68 c 69 69 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(niterh) 70 CALL histwrite(nid_ctesGCM, "niterh", itau_ dyn,70 CALL histwrite(nid_ctesGCM, "niterh", itau_w, 71 71 . zx_tmp_2d,iip1*jjp1,ndex2d) 72 72 c 73 73 zx_tmp_2d(1:iip1,1:jjp1)=tetagdiv 74 CALL histwrite(nid_ctesGCM, "tetagdiv", itau_ dyn,74 CALL histwrite(nid_ctesGCM, "tetagdiv", itau_w, 75 75 . zx_tmp_2d,iip1*jjp1,ndex2d) 76 76 c 77 77 zx_tmp_2d(1:iip1,1:jjp1)=tetagrot 78 CALL histwrite(nid_ctesGCM, "tetagrot", itau_ dyn,78 CALL histwrite(nid_ctesGCM, "tetagrot", itau_w, 79 79 . zx_tmp_2d,iip1*jjp1,ndex2d) 80 80 c 81 81 zx_tmp_2d(1:iip1,1:jjp1)=tetatemp 82 CALL histwrite(nid_ctesGCM, "tetatemp", itau_ dyn,82 CALL histwrite(nid_ctesGCM, "tetatemp", itau_w, 83 83 . zx_tmp_2d,iip1*jjp1,ndex2d) 84 84 c 85 85 zx_tmp_2d(1:iip1,1:jjp1)=coefdis 86 CALL histwrite(nid_ctesGCM, "coefdis", itau_ dyn,86 CALL histwrite(nid_ctesGCM, "coefdis", itau_w, 87 87 . zx_tmp_2d,iip1*jjp1,ndex2d) 88 88 c … … 92 92 zx_tmp_2d(1:iip1,1:jjp1)=0. 93 93 ENDIF 94 CALL histwrite(nid_ctesGCM, "purmats", itau_ dyn,94 CALL histwrite(nid_ctesGCM, "purmats", itau_w, 95 95 . zx_tmp_2d,iip1*jjp1,ndex2d) 96 96 c … … 100 100 zx_tmp_2d(1:iip1,1:jjp1)=0. 101 101 ENDIF 102 CALL histwrite(nid_ctesGCM, "ok_guide", itau_ dyn,102 CALL histwrite(nid_ctesGCM, "ok_guide", itau_w, 103 103 . zx_tmp_2d,iip1*jjp1,ndex2d) 104 104 c … … 108 108 zx_tmp_2d(1:iip1,1:jjp1)=0. 109 109 ENDIF 110 CALL histwrite(nid_ctesGCM, "true_calendar", itau_ dyn,110 CALL histwrite(nid_ctesGCM, "true_calendar", itau_w, 111 111 . zx_tmp_2d,iip1*jjp1,ndex2d) 112 112 c 113 113 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_phys) 114 CALL histwrite(nid_ctesGCM, "iflag_phys", itau_ dyn,114 CALL histwrite(nid_ctesGCM, "iflag_phys", itau_w, 115 115 . zx_tmp_2d,iip1*jjp1,ndex2d) 116 116 c 117 117 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iphysiq) 118 CALL histwrite(nid_ctesGCM, "iphysiq", itau_ dyn,118 CALL histwrite(nid_ctesGCM, "iphysiq", itau_w, 119 119 . zx_tmp_2d,iip1*jjp1,ndex2d) 120 120 c 121 121 zx_tmp_2d(1:iip1,1:jjp1)=ecritphy 122 CALL histwrite(nid_ctesGCM, "ecritphy", itau_ dyn,122 CALL histwrite(nid_ctesGCM, "ecritphy", itau_w, 123 123 . zx_tmp_2d,iip1*jjp1,ndex2d) 124 124 c … … 128 128 zx_tmp_2d(1:iip1,1:jjp1)=0. 129 129 ENDIF 130 CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_ dyn,130 CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_w, 131 131 . zx_tmp_2d,iip1*jjp1,ndex2d) 132 132 c … … 136 136 zx_tmp_2d(1:iip1,1:jjp1)=0. 137 137 ENDIF 138 CALL histwrite(nid_ctesGCM, "soil_model", itau_ dyn,138 CALL histwrite(nid_ctesGCM, "soil_model", itau_w, 139 139 . zx_tmp_2d,iip1*jjp1,ndex2d) 140 140 c … … 144 144 zx_tmp_2d(1:iip1,1:jjp1)=0. 145 145 ENDIF 146 CALL histwrite(nid_ctesGCM, "new_oliq", itau_ dyn,146 CALL histwrite(nid_ctesGCM, "new_oliq", itau_w, 147 147 . zx_tmp_2d,iip1*jjp1,ndex2d) 148 148 c … … 152 152 zx_tmp_2d(1:iip1,1:jjp1)=0. 153 153 ENDIF 154 CALL histwrite(nid_ctesGCM, "ok_orodr", itau_ dyn,154 CALL histwrite(nid_ctesGCM, "ok_orodr", itau_w, 155 155 . zx_tmp_2d,iip1*jjp1,ndex2d) 156 156 c … … 160 160 zx_tmp_2d(1:iip1,1:jjp1)=0. 161 161 ENDIF 162 CALL histwrite(nid_ctesGCM, "ok_orolf", itau_ dyn,162 CALL histwrite(nid_ctesGCM, "ok_orolf", itau_w, 163 163 . zx_tmp_2d,iip1*jjp1,ndex2d) 164 164 c … … 168 168 zx_tmp_2d(1:iip1,1:jjp1)=0. 169 169 ENDIF 170 CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_ dyn,170 CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_w, 171 171 . zx_tmp_2d,iip1*jjp1,ndex2d) 172 172 c 173 173 zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad 174 CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_ dyn,174 CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_w, 175 175 . zx_tmp_2d,iip1*jjp1,ndex2d) 176 176 c 177 177 zx_tmp_2d(1:iip1,1:jjp1)=iflag_con 178 CALL histwrite(nid_ctesGCM, "iflag_con", itau_ dyn,178 CALL histwrite(nid_ctesGCM, "iflag_con", itau_w, 179 179 . zx_tmp_2d,iip1*jjp1,ndex2d) 180 180 c 181 181 zx_tmp_2d(1:iip1,1:jjp1)=clon 182 CALL histwrite(nid_ctesGCM, "clon", itau_ dyn,182 CALL histwrite(nid_ctesGCM, "clon", itau_w, 183 183 . zx_tmp_2d,iip1*jjp1,ndex2d) 184 184 c 185 185 zx_tmp_2d(1:iip1,1:jjp1)=clat 186 CALL histwrite(nid_ctesGCM, "clat", itau_ dyn,186 CALL histwrite(nid_ctesGCM, "clat", itau_w, 187 187 . zx_tmp_2d,iip1*jjp1,ndex2d) 188 188 c 189 189 zx_tmp_2d(1:iip1,1:jjp1)=grossismx 190 CALL histwrite(nid_ctesGCM, "grossismx", itau_ dyn,190 CALL histwrite(nid_ctesGCM, "grossismx", itau_w, 191 191 . zx_tmp_2d,iip1*jjp1,ndex2d) 192 192 c 193 193 zx_tmp_2d(1:iip1,1:jjp1)=grossismy 194 CALL histwrite(nid_ctesGCM, "grossismy", itau_ dyn,194 CALL histwrite(nid_ctesGCM, "grossismy", itau_w, 195 195 . zx_tmp_2d,iip1*jjp1,ndex2d) 196 196 c … … 200 200 zx_tmp_2d(1:iip1,1:jjp1)=0. 201 201 ENDIF 202 CALL histwrite(nid_ctesGCM, "fxyhypb", itau_ dyn,202 CALL histwrite(nid_ctesGCM, "fxyhypb", itau_w, 203 203 . zx_tmp_2d,iip1*jjp1,ndex2d) 204 204 c 205 205 zx_tmp_2d(1:iip1,1:jjp1)=dzoomx 206 CALL histwrite(nid_ctesGCM, "dzoomx", itau_ dyn,206 CALL histwrite(nid_ctesGCM, "dzoomx", itau_w, 207 207 . zx_tmp_2d,iip1*jjp1,ndex2d) 208 208 c 209 209 zx_tmp_2d(1:iip1,1:jjp1)=dzoomy 210 CALL histwrite(nid_ctesGCM, "dzoomy", itau_ dyn,210 CALL histwrite(nid_ctesGCM, "dzoomy", itau_w, 211 211 . zx_tmp_2d,iip1*jjp1,ndex2d) 212 212 c 213 213 zx_tmp_2d(1:iip1,1:jjp1)=taux 214 CALL histwrite(nid_ctesGCM, "taux", itau_ dyn,214 CALL histwrite(nid_ctesGCM, "taux", itau_w, 215 215 . zx_tmp_2d,iip1*jjp1,ndex2d) 216 216 c 217 217 zx_tmp_2d(1:iip1,1:jjp1)=tauy 218 CALL histwrite(nid_ctesGCM, "tauy", itau_ dyn,218 CALL histwrite(nid_ctesGCM, "tauy", itau_w, 219 219 . zx_tmp_2d,iip1*jjp1,ndex2d) 220 220 c … … 224 224 zx_tmp_2d(1:iip1,1:jjp1)=0. 225 225 ENDIF 226 CALL histwrite(nid_ctesGCM, "ysinus", itau_ dyn,226 CALL histwrite(nid_ctesGCM, "ysinus", itau_w, 227 227 . zx_tmp_2d,iip1*jjp1,ndex2d) 228 228 c 229 229 zx_tmp_2d(1:iip1,1:jjp1)=ip_ebil_dyn 230 CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_ dyn,230 CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_w, 231 231 . zx_tmp_2d,iip1*jjp1,ndex2d) 232 232 c
Note: See TracChangeset
for help on using the changeset viewer.
