Revision
10 -
(
hide annotations)
Fri Apr 18 14:45:53 2008 UTC
(16 years, 2 months ago)
by
guez
Original Path:
trunk/libf/phylmd/YOECUMF.f90
File size: 1526 byte(s)
Added NetCDF directory "/home/guez/include" in "g95.mk" and
"nag_tools.mk".
Added some "intent" attributes in "PVtheta", "advtrac", "caladvtrac",
"calfis", "diagedyn", "dissip", "vlspltqs", "aeropt", "ajsec",
"calltherm", "clmain", "cltrac", "cltracrn", "concvl", "conema3",
"conflx", "fisrtilp", "newmicro", "nuage", "diagcld1", "diagcld2",
"drag_noro", "lift_noro", "SUGWD", "physiq", "phytrac", "radlwsw", "thermcell".
Removed the case "ierr == 0" in "abort_gcm"; moved call to "histclo"
and messages for end of run from "abort_gcm" to "gcm"; replaced call
to "abort_gcm" in "leapfrog" by exit from outer loop.
In "calfis": removed argument "pp" and variable "unskap"; changed
"pksurcp" from scalar to rank 2; use "pressure_var"; rewrote
computation of "zplev", "zplay", "ztfi", "pcvgt" using "dyn_phy";
added computation of "pls".
Removed unused variable in "dynredem0".
In "exner_hyb": changed "dellta" from scalar to rank 1; replaced call
to "ssum" by call to "sum"; removed variables "xpn" and "xps";
replaced some loops by array expressions.
In "leapfrog": use "pressure_var"; deleted variables "p", "longcles".
Converted common blocks "YOECUMF", "YOEGWD" to modules.
Removed argument "pplay" in "cvltr", "diagetpq", "nflxtr".
Created module "raddimlw" from include file "raddimlw.h".
Corrected call to "new_unit" in "test_disvert".