Parent Directory
| 
Revision Log
Split ppm3d.f into files containing a single procedure. Factorized computations of filtering matrices into a procedure inifilr_hemisph. Had then to change the matrices from allocatable to pointer and from customized lower bound to lower bound 1. The change in lower bounds does not matter because the matrices are only used as a whole as actual arguments. Also, in infilr, instead of finding jfilt[ns][uv] from approximately jjm /2, start at index j1 that corresponds to the equator. This is not the same if there is a zoom in latitude. Also, the test (rlamda(modfrst[ns][uv](j)) * cos(rlat[uv](j)) < 1) in the loops on filtered latitudes is not useful now that we start from j1: it is necessarily true. See notes. Just encapsulated lwvn into a module and removed unused argument ktraer.
| 1 | guez | 166 | a2c.f |
| 2 | guez | 123 | aaam_bud.f |
| 3 | abort_gcm.f | ||
| 4 | academic.f | ||
| 5 | acc.f | ||
| 6 | adaptdt.f | ||
| 7 | addfi.f | ||
| 8 | advect.f | ||
| 9 | advn.f | ||
| 10 | advtrac.f | ||
| 11 | advx.f | ||
| 12 | advxp.f | ||
| 13 | advy.f | ||
| 14 | advyp.f | ||
| 15 | advz.f | ||
| 16 | advzp.f | ||
| 17 | aeropt.f | ||
| 18 | ajsec.f | ||
| 19 | alboc_cd.f | ||
| 20 | alboc.f | ||
| 21 | albsno.f | ||
| 22 | bernoui.f | ||
| 23 | bilan_dyn.f | ||
| 24 | buildop.f | ||
| 25 | caladvtrac.f | ||
| 26 | calbeta.f | ||
| 27 | calcul_fluxs.f | ||
| 28 | caldyn.f | ||
| 29 | calendar.f | ||
| 30 | calfis.f | ||
| 31 | calltherm.f | ||
| 32 | chem.f | ||
| 33 | clcdrag.f | ||
| 34 | cleanstr.f | ||
| 35 | clesphys2.f | ||
| 36 | clesphys.f | ||
| 37 | clmain.f | ||
| 38 | clouds_gno.f | ||
| 39 | clqh.f | ||
| 40 | cltrac.f | ||
| 41 | cltracrn.f | ||
| 42 | clvent.f | ||
| 43 | coefcdrag.f | ||
| 44 | coefkz2.f | ||
| 45 | coefkz.f | ||
| 46 | coefkzmin.f | ||
| 47 | coefpoly.f | ||
| 48 | comconst.f | ||
| 49 | comdissnew.f | ||
| 50 | comfisrtilp.f | ||
| 51 | comgeom.f | ||
| 52 | comgeomphy.f | ||
| 53 | com_io_dyn.f | ||
| 54 | concvl.f | ||
| 55 | conema3_m.f | ||
| 56 | conf_gcm.f | ||
| 57 | conf_guide.f | ||
| 58 | conflx.f | ||
| 59 | conf_phys.f | ||
| 60 | convflu.f | ||
| 61 | convmas.f | ||
| 62 | coordij.f | ||
| 63 | correctbid.f | ||
| 64 | guez | 166 | cosa.f |
| 65 | cosc.f | ||
| 66 | guez | 123 | covcont.f |
| 67 | covnat.f | ||
| 68 | createnewfield.f | ||
| 69 | ctherm.f | ||
| 70 | cv3_closure.f | ||
| 71 | cv3_compress.f | ||
| 72 | cv3_feed.f | ||
| 73 | cv3_mixing.f | ||
| 74 | cv3_param.f | ||
| 75 | cv3_prelim.f | ||
| 76 | cv3_tracer.f | ||
| 77 | cv3_trigger.f | ||
| 78 | cv3_uncompress.f | ||
| 79 | cv3_undilute1.f | ||
| 80 | cv3_undilute2.f | ||
| 81 | cv3_unsat.f | ||
| 82 | cv3_yield.f | ||
| 83 | cv_closure.f | ||
| 84 | cv_compress.f | ||
| 85 | cv_driver.f | ||
| 86 | cv_feed.f | ||
| 87 | cv_flag.f | ||
| 88 | cvflag.f | ||
| 89 | cvltr.f | ||
| 90 | cv_mixing.f | ||
| 91 | cv_param.f | ||
| 92 | cv_prelim.f | ||
| 93 | cv_thermo.f | ||
| 94 | cvthermo.f | ||
| 95 | cv_trigger.f | ||
| 96 | cv_uncompress.f | ||
| 97 | cv_undilute1.f | ||
| 98 | cv_undilute2.f | ||
| 99 | cv_unsat.f | ||
| 100 | cv_yield.f | ||
| 101 | decoop.f | ||
| 102 | diagcld1.f | ||
| 103 | diagcld2.f | ||
| 104 | diagetpq.f | ||
| 105 | diagphy.f | ||
| 106 | dimens_m.f | ||
| 107 | dimphy.f | ||
| 108 | dimsoil.f | ||
| 109 | dissip.f | ||
| 110 | disvert.f | ||
| 111 | divergf.f | ||
| 112 | diverg_gam.f | ||
| 113 | divgrad2.f | ||
| 114 | dqthermcell2.f | ||
| 115 | dqthermcell.f | ||
| 116 | drag_noro.f | ||
| 117 | dteta1.f | ||
| 118 | dudv1.f | ||
| 119 | dudv2.f | ||
| 120 | dvthermcell2.f | ||
| 121 | dynetat0.f | ||
| 122 | dynredem0.f | ||
| 123 | dynredem1.f | ||
| 124 | enercin.f | ||
| 125 | ener.f | ||
| 126 | errioipsl.f | ||
| 127 | exner_hyb.f | ||
| 128 | FCTTRE.f | ||
| 129 | guez | 166 | filcr.f |
| 130 | filew.f | ||
| 131 | filns.f | ||
| 132 | guez | 136 | filtreg_hemisph.f |
| 133 | guez | 137 | filtreg_scal.f |
| 134 | filtreg_v.f | ||
| 135 | guez | 123 | findsep.f |
| 136 | find_str.f | ||
| 137 | fisrtilp.f | ||
| 138 | flumass.f | ||
| 139 | fluxstokenc.f | ||
| 140 | flxadjtq.f | ||
| 141 | flxasc.f | ||
| 142 | flxbase.f | ||
| 143 | flxddraf.f | ||
| 144 | flxdlfs.f | ||
| 145 | flxdtdq.f | ||
| 146 | flxflux.f | ||
| 147 | flxini.f | ||
| 148 | flxmain.f | ||
| 149 | fonte_neige.f | ||
| 150 | guez | 166 | fxppm.f |
| 151 | fyppm.f | ||
| 152 | fzppm.f | ||
| 153 | guez | 123 | gcm.f |
| 154 | geopot.f | ||
| 155 | getfieldindex.f | ||
| 156 | getso4fromfile.f | ||
| 157 | grad.f | ||
| 158 | gradiv2.f | ||
| 159 | gradsdef.f | ||
| 160 | gr_fi_ecrit.f | ||
| 161 | grid_change.f | ||
| 162 | groupe.f | ||
| 163 | groupeun.f | ||
| 164 | gr_phy_write_3d.f | ||
| 165 | gr_u_scal.f | ||
| 166 | gr_v_scal.f | ||
| 167 | guide.f | ||
| 168 | gwprofil.f | ||
| 169 | gwstress.f | ||
| 170 | hbtm.f | ||
| 171 | heavyside.f | ||
| 172 | hgardfou.f | ||
| 173 | histbeg_totreg.f | ||
| 174 | histclo.f | ||
| 175 | histcom_var.f | ||
| 176 | histdef.f | ||
| 177 | histend.f | ||
| 178 | histhori_regular.f | ||
| 179 | histsync.f | ||
| 180 | histvar_seq.f | ||
| 181 | histvert.f | ||
| 182 | histwrite.f | ||
| 183 | histwrite_real.f | ||
| 184 | indicesol.f | ||
| 185 | iniadvtrac.f | ||
| 186 | inidissip.f | ||
| 187 | inifgn.f | ||
| 188 | inifilr.f | ||
| 189 | guez | 166 | inifilr_hemisph.f |
| 190 | guez | 123 | ini_histins.f |
| 191 | initdynav.f | ||
| 192 | init_dynzon.f | ||
| 193 | initfluxsto.f | ||
| 194 | inithist.f | ||
| 195 | initial0.f | ||
| 196 | initphysto.f | ||
| 197 | initrrnpb.f | ||
| 198 | init_tau2alpha.f | ||
| 199 | integrd.f | ||
| 200 | interface_surf.f | ||
| 201 | interfoce_lim.f | ||
| 202 | interfsurf_hq.f | ||
| 203 | interfsur_lim.f | ||
| 204 | interpost.f | ||
| 205 | interpre.f | ||
| 206 | guez | 131 | invert_zoom_x.f |
| 207 | guez | 123 | ioconf_calendar.f |
| 208 | ioget_calendar.f | ||
| 209 | ioipslmpp.f | ||
| 210 | isittime.f | ||
| 211 | ismax.f | ||
| 212 | ismin.f | ||
| 213 | itau2date.f | ||
| 214 | ju2ymds.f | ||
| 215 | laplacien.f | ||
| 216 | laplacien_gam.f | ||
| 217 | laplacien_rot.f | ||
| 218 | laplacien_rotgam.f | ||
| 219 | leapfrog.f | ||
| 220 | lift_noro.f | ||
| 221 | limx.f | ||
| 222 | limy.f | ||
| 223 | limz.f | ||
| 224 | guez | 166 | lmtppm.f |
| 225 | guez | 123 | lwb.f |
| 226 | lwbv.f | ||
| 227 | lwc.f | ||
| 228 | lw.f | ||
| 229 | lwtt.f | ||
| 230 | lwttm.f | ||
| 231 | lwu.f | ||
| 232 | lwvb.f | ||
| 233 | lwvd.f | ||
| 234 | lwv.f | ||
| 235 | lwvn.f | ||
| 236 | massbar.f | ||
| 237 | massbarxy.f | ||
| 238 | massdair.f | ||
| 239 | mathelp.f | ||
| 240 | mathop2.f | ||
| 241 | mathop.f | ||
| 242 | minmax.f | ||
| 243 | minmaxqfi.f | ||
| 244 | moycum.f | ||
| 245 | nat2gcm.f | ||
| 246 | newmicro.f | ||
| 247 | nflxtr.f | ||
| 248 | nuage.f | ||
| 249 | nxgrad.f | ||
| 250 | nxgrad_gam.f | ||
| 251 | nxgraro2.f | ||
| 252 | o3_chem.f | ||
| 253 | orbite.f | ||
| 254 | orodrag.f | ||
| 255 | orolift.f | ||
| 256 | orosetup.f | ||
| 257 | ozonecm.f | ||
| 258 | paramet_m.f | ||
| 259 | pentes_ini.f | ||
| 260 | phyetat0.f | ||
| 261 | guez | 166 | phyredem0.f |
| 262 | guez | 123 | phyredem.f |
| 263 | physiq.f | ||
| 264 | phystokenc.f | ||
| 265 | phytrac.f | ||
| 266 | ppm3d.f | ||
| 267 | prather.f | ||
| 268 | pres2lev.f | ||
| 269 | press_coefoz.f | ||
| 270 | guez | 124 | principal_cshift.f |
| 271 | guez | 123 | printflag.f |
| 272 | qcheck.f | ||
| 273 | guez | 166 | qckxyz.f |
| 274 | guez | 123 | qminimum.f |
| 275 | q_sat.f | ||
| 276 | raddim.f | ||
| 277 | raddimlw.f | ||
| 278 | radepsi.f | ||
| 279 | radiornpb.f | ||
| 280 | radlwsw.f | ||
| 281 | radopt.f | ||
| 282 | read_reanalyse.f | ||
| 283 | readsulfate.f | ||
| 284 | readsulfate_preind.f | ||
| 285 | reanalyse2nat.f | ||
| 286 | regr_pr_av.f | ||
| 287 | regr_pr_comb_coefoz.f | ||
| 288 | regr_pr_int.f | ||
| 289 | rotatf.f | ||
| 290 | rotat_nfil.f | ||
| 291 | scopy.f | ||
| 292 | screenc.f | ||
| 293 | screenp.f | ||
| 294 | soil.f | ||
| 295 | sortvarc.f | ||
| 296 | ssum.f | ||
| 297 | stdlevvar.f | ||
| 298 | strlowercase.f | ||
| 299 | suphec.f | ||
| 300 | sw1s.f | ||
| 301 | sw2s.f | ||
| 302 | swclr.f | ||
| 303 | swde.f | ||
| 304 | sw.f | ||
| 305 | swr.f | ||
| 306 | swtt1.f | ||
| 307 | swtt.f | ||
| 308 | swu.f | ||
| 309 | tau2alpha.f | ||
| 310 | temps.f | ||
| 311 | thermcell.f | ||
| 312 | tourpot.f | ||
| 313 | tracstoke.f | ||
| 314 | trans_buff.f | ||
| 315 | transp.f | ||
| 316 | transp_lay.f | ||
| 317 | unit_nml_m.f | ||
| 318 | ustarhb.f | ||
| 319 | vdif_kcay.f | ||
| 320 | vitvert.f | ||
| 321 | vlsplt.f | ||
| 322 | vlspltqs.f | ||
| 323 | vlx.f | ||
| 324 | vlxqs.f | ||
| 325 | vly.f | ||
| 326 | vlyqs.f | ||
| 327 | vlz.f | ||
| 328 | writedynav.f | ||
| 329 | writefield.f | ||
| 330 | writehist.f | ||
| 331 | guez | 166 | xadv.f |
| 332 | xmist.f | ||
| 333 | xtp.f | ||
| 334 | yadv.f | ||
| 335 | guez | 123 | yamada4.f |
| 336 | yamada.f | ||
| 337 | ymds2ju.f | ||
| 338 | guez | 166 | ymist.f |
| 339 | guez | 123 | YOECUMF.f |
| 340 | YOEGWD.f | ||
| 341 | yoethf.f | ||
| 342 | YOMCST.f | ||
| 343 | guez | 166 | ytp.f |
| 344 | guez | 123 | zenang.f |
| 345 | zilch.f |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |