[692] | 1 | c |
---|
[696] | 2 | ndex2d = 0 |
---|
[825] | 3 | itau_w=itau_dyn+itau |
---|
[692] | 4 | c |
---|
[696] | 5 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level) |
---|
[825] | 6 | CALL histwrite(nid_ctesGCM, "prt_level", itau_w, |
---|
[696] | 7 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 8 | c |
---|
[696] | 9 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(dayref) |
---|
[825] | 10 | CALL histwrite(nid_ctesGCM, "dayref", itau_w, |
---|
[696] | 11 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 12 | c |
---|
[696] | 13 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(anneeref) |
---|
[825] | 14 | CALL histwrite(nid_ctesGCM, "anneeref", itau_w, |
---|
[696] | 15 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 16 | c |
---|
[696] | 17 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(raz_date) |
---|
[825] | 18 | CALL histwrite(nid_ctesGCM, "raz_date", itau_w, |
---|
[696] | 19 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 20 | c |
---|
[696] | 21 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nday) |
---|
[825] | 22 | CALL histwrite(nid_ctesGCM, "nday", itau_w, |
---|
[696] | 23 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 24 | c |
---|
[696] | 25 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(day_step) |
---|
[825] | 26 | CALL histwrite(nid_ctesGCM, "day_step", itau_w, |
---|
[696] | 27 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 28 | c |
---|
[696] | 29 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iperiod) |
---|
[825] | 30 | CALL histwrite(nid_ctesGCM, "iperiod", itau_w, |
---|
[696] | 31 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 32 | c |
---|
[696] | 33 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iapp_tracvl) |
---|
[825] | 34 | CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_w, |
---|
[696] | 35 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 36 | c |
---|
[696] | 37 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iconser) |
---|
[825] | 38 | CALL histwrite(nid_ctesGCM, "iconser", itau_w, |
---|
[696] | 39 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 40 | c |
---|
[696] | 41 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iecri) |
---|
[825] | 42 | CALL histwrite(nid_ctesGCM, "iecri", itau_w, |
---|
[696] | 43 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 44 | c |
---|
[696] | 45 | zx_tmp_2d(1:iip1,1:jjp1)=periodav |
---|
[825] | 46 | CALL histwrite(nid_ctesGCM, "periodav", itau_w, |
---|
[696] | 47 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 48 | c |
---|
[696] | 49 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(idissip) |
---|
[825] | 50 | CALL histwrite(nid_ctesGCM, "idissip", itau_w, |
---|
[696] | 51 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 52 | c |
---|
[696] | 53 | IF(lstardis) THEN |
---|
| 54 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 55 | ELSE |
---|
| 56 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 57 | ENDIF |
---|
[825] | 58 | CALL histwrite(nid_ctesGCM, "lstardis", itau_w, |
---|
[696] | 59 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 60 | c |
---|
[696] | 61 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergdiv) |
---|
[825] | 62 | CALL histwrite(nid_ctesGCM, "nitergdiv", itau_w, |
---|
[696] | 63 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 64 | c |
---|
[696] | 65 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergrot) |
---|
[825] | 66 | CALL histwrite(nid_ctesGCM, "nitergrot", itau_w, |
---|
[696] | 67 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 68 | c |
---|
[696] | 69 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(niterh) |
---|
[825] | 70 | CALL histwrite(nid_ctesGCM, "niterh", itau_w, |
---|
[696] | 71 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 72 | c |
---|
[696] | 73 | zx_tmp_2d(1:iip1,1:jjp1)=tetagdiv |
---|
[825] | 74 | CALL histwrite(nid_ctesGCM, "tetagdiv", itau_w, |
---|
[696] | 75 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 76 | c |
---|
[696] | 77 | zx_tmp_2d(1:iip1,1:jjp1)=tetagrot |
---|
[825] | 78 | CALL histwrite(nid_ctesGCM, "tetagrot", itau_w, |
---|
[696] | 79 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 80 | c |
---|
[696] | 81 | zx_tmp_2d(1:iip1,1:jjp1)=tetatemp |
---|
[825] | 82 | CALL histwrite(nid_ctesGCM, "tetatemp", itau_w, |
---|
[696] | 83 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 84 | c |
---|
[696] | 85 | zx_tmp_2d(1:iip1,1:jjp1)=coefdis |
---|
[825] | 86 | CALL histwrite(nid_ctesGCM, "coefdis", itau_w, |
---|
[696] | 87 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 88 | c |
---|
[696] | 89 | IF(purmats) THEN |
---|
| 90 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 91 | ELSE |
---|
| 92 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 93 | ENDIF |
---|
[825] | 94 | CALL histwrite(nid_ctesGCM, "purmats", itau_w, |
---|
[696] | 95 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 96 | c |
---|
[696] | 97 | IF(ok_guide) THEN |
---|
| 98 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 99 | ELSE |
---|
| 100 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 101 | ENDIF |
---|
[825] | 102 | CALL histwrite(nid_ctesGCM, "ok_guide", itau_w, |
---|
[696] | 103 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 104 | c |
---|
[696] | 105 | IF(true_calendar) THEN |
---|
| 106 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 107 | ELSE |
---|
| 108 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 109 | ENDIF |
---|
[825] | 110 | CALL histwrite(nid_ctesGCM, "true_calendar", itau_w, |
---|
[696] | 111 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 112 | c |
---|
[696] | 113 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_phys) |
---|
[825] | 114 | CALL histwrite(nid_ctesGCM, "iflag_phys", itau_w, |
---|
[696] | 115 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 116 | c |
---|
[696] | 117 | zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iphysiq) |
---|
[825] | 118 | CALL histwrite(nid_ctesGCM, "iphysiq", itau_w, |
---|
[696] | 119 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 120 | c |
---|
[784] | 121 | zx_tmp_2d(1:iip1,1:jjp1)=ecritphy |
---|
[825] | 122 | CALL histwrite(nid_ctesGCM, "ecritphy", itau_w, |
---|
[696] | 123 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 124 | c |
---|
[696] | 125 | IF(cycle_diurne) THEN |
---|
| 126 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 127 | ELSE |
---|
| 128 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 129 | ENDIF |
---|
[825] | 130 | CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_w, |
---|
[696] | 131 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 132 | c |
---|
[696] | 133 | IF(soil_model) THEN |
---|
| 134 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 135 | ELSE |
---|
| 136 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 137 | ENDIF |
---|
[825] | 138 | CALL histwrite(nid_ctesGCM, "soil_model", itau_w, |
---|
[696] | 139 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 140 | c |
---|
[696] | 141 | IF(new_oliq) THEN |
---|
| 142 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 143 | ELSE |
---|
| 144 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 145 | ENDIF |
---|
[825] | 146 | CALL histwrite(nid_ctesGCM, "new_oliq", itau_w, |
---|
[696] | 147 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 148 | c |
---|
[696] | 149 | IF(ok_orodr) THEN |
---|
| 150 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 151 | ELSE |
---|
| 152 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 153 | ENDIF |
---|
[825] | 154 | CALL histwrite(nid_ctesGCM, "ok_orodr", itau_w, |
---|
[696] | 155 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 156 | c |
---|
[696] | 157 | IF(ok_orolf) THEN |
---|
| 158 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 159 | ELSE |
---|
| 160 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 161 | ENDIF |
---|
[825] | 162 | CALL histwrite(nid_ctesGCM, "ok_orolf", itau_w, |
---|
[696] | 163 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 164 | c |
---|
[696] | 165 | IF(ok_limitvrai) THEN |
---|
| 166 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 167 | ELSE |
---|
| 168 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 169 | ENDIF |
---|
[825] | 170 | CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_w, |
---|
[696] | 171 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 172 | c |
---|
[784] | 173 | zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad |
---|
[825] | 174 | CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_w, |
---|
[696] | 175 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 176 | c |
---|
[784] | 177 | zx_tmp_2d(1:iip1,1:jjp1)=iflag_con |
---|
[825] | 178 | CALL histwrite(nid_ctesGCM, "iflag_con", itau_w, |
---|
[696] | 179 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 180 | c |
---|
[696] | 181 | zx_tmp_2d(1:iip1,1:jjp1)=clon |
---|
[825] | 182 | CALL histwrite(nid_ctesGCM, "clon", itau_w, |
---|
[696] | 183 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 184 | c |
---|
[696] | 185 | zx_tmp_2d(1:iip1,1:jjp1)=clat |
---|
[825] | 186 | CALL histwrite(nid_ctesGCM, "clat", itau_w, |
---|
[696] | 187 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 188 | c |
---|
[696] | 189 | zx_tmp_2d(1:iip1,1:jjp1)=grossismx |
---|
[825] | 190 | CALL histwrite(nid_ctesGCM, "grossismx", itau_w, |
---|
[696] | 191 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 192 | c |
---|
[696] | 193 | zx_tmp_2d(1:iip1,1:jjp1)=grossismy |
---|
[825] | 194 | CALL histwrite(nid_ctesGCM, "grossismy", itau_w, |
---|
[696] | 195 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 196 | c |
---|
[696] | 197 | IF(fxyhypb) THEN |
---|
| 198 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 199 | ELSE |
---|
| 200 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 201 | ENDIF |
---|
[825] | 202 | CALL histwrite(nid_ctesGCM, "fxyhypb", itau_w, |
---|
[696] | 203 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 204 | c |
---|
[696] | 205 | zx_tmp_2d(1:iip1,1:jjp1)=dzoomx |
---|
[825] | 206 | CALL histwrite(nid_ctesGCM, "dzoomx", itau_w, |
---|
[696] | 207 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 208 | c |
---|
[696] | 209 | zx_tmp_2d(1:iip1,1:jjp1)=dzoomy |
---|
[825] | 210 | CALL histwrite(nid_ctesGCM, "dzoomy", itau_w, |
---|
[696] | 211 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 212 | c |
---|
[696] | 213 | zx_tmp_2d(1:iip1,1:jjp1)=taux |
---|
[825] | 214 | CALL histwrite(nid_ctesGCM, "taux", itau_w, |
---|
[696] | 215 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 216 | c |
---|
[696] | 217 | zx_tmp_2d(1:iip1,1:jjp1)=tauy |
---|
[825] | 218 | CALL histwrite(nid_ctesGCM, "tauy", itau_w, |
---|
[696] | 219 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 220 | c |
---|
[696] | 221 | IF(ysinus) THEN |
---|
| 222 | zx_tmp_2d(1:iip1,1:jjp1)=1. |
---|
| 223 | ELSE |
---|
| 224 | zx_tmp_2d(1:iip1,1:jjp1)=0. |
---|
| 225 | ENDIF |
---|
[825] | 226 | CALL histwrite(nid_ctesGCM, "ysinus", itau_w, |
---|
[696] | 227 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 228 | c |
---|
[784] | 229 | zx_tmp_2d(1:iip1,1:jjp1)=ip_ebil_dyn |
---|
[825] | 230 | CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_w, |
---|
[696] | 231 | . zx_tmp_2d,iip1*jjp1,ndex2d) |
---|
[692] | 232 | c |
---|
| 233 | c================================================================= |
---|
| 234 | c |
---|
[696] | 235 | if (ok_sync) then |
---|
| 236 | call histsync(nid_ctesGCM) |
---|
| 237 | endif |
---|
[692] | 238 | c |
---|
| 239 | c================================================================= |
---|