Parent Directory
| 
Revision Log
| Sticky Revision: |
Merge clcdrag and coefcdrag (following LMDZ revision 2232). Replace local arrays by scalars. max(qsurf, 0), f_cdrag_ter, f_cdrag_oce in clcdrag. max(cepdu2, speed(i)**2) in coefcdrag, test zri > 0 instead of >= 0. trm1 was unused in coefcdrag. No need for intermediary local variable pref_local.
Do the same calculation for richardson number and f_cdrag between coefcdrag and clcdrag (following revision 2011 of LMDZ). We have then to add input variables f_cdrag_ter and f_cdrag_oce in module clesphys (following revision 1168 of LMDZ), with default values those used for AR4.
Add arguments psol and pref to clcdrag, in preparation of merge with coefcdrag. Remove intent out arguments cdran and zri1 of coefcdrag, not used. Make argument pref of coefcdrag optional, in preparation of merge with clcdrag. Remove useless intermediary local variable zdphi in coefcdrag. Remove unused local variable ri1 in stdlevvar.
Replace arguments u, v of procedure clcdrag by argument speed, preparing merge with procedure coefcdrag.
Move Sources/* to root directory.
In procedure clmain, no need for intermediary variables ykmm and ykmn. In module coefcdrag_m, remove unused procedures fsta and fins.
Rename phisinit to phis in restart.nc: clearer, same name as Fortran variable. In aaam_bud, use rlat and rlon from phyetat0_m instead of having these module variables associated to actual arguments in physiq. In clmain, too many wind variables make the procedure hard to understand. Use yu(:knon, 1) and yv(:knon, 1) instead of u1lay(:knon) and v1lay(:knon). Note that when yu(:knon, 1) and yv(:knon, 1) are used as actual arguments, they are probably copied to new arrays since the elements are not contiguous. Rename yu10m to wind10m because this is the norm of wind vector, not its zonal component. Rename yustar to ustar. Rename uzon and vmer to u1 and v1 since these are wind components at first layer and u1 and v1 are the names of corresponding dummy arguments in stdlevvar. In clmain, rename yzlev to zlev. In clmain, screenc, stdlevvar and coefcdrag, remove the code corresponding to zxli true (not used in LMDZ either). Subroutine ustarhb becomes a function. Simplifications using the fact that zx_alf2 = 0 and zx_alf1 = 1 (discarding the possibility to change this). In procedure vdif_kcay, remove unused dummy argument plev. Remove useless computations of sss and sssq. In clouds_gno, exp(100.) would overflow in single precision. Set maximum to exp(80.) instead. In physiq, use u(:, 1) and v(:, 1) as arguments to phytrac instead of creating ad hoc variables yu1 and yv1. In stdlevvar, rename dummy argument u_10m to wind10m, following the corresponding modification in clmain. Simplifications using the fact that ok_pred = 0 and ok_corr = 1 (discarding the possibility to change this).
Sources inside, compilation outside.
Imported writefield from LMDZ. Close at the end of gcm the files which were created by writefiled (not done in LMDZ). Removed procedures for the output of Grads files. Removed calls to dump2d. In guide, replaced calls to wrgrads by calls to writefield. In vlspltqs, removed redundant programming of saturation pressure. Call foeew from module FCTTRE instead. Bug fix in interpre: size of w exceeding size of correponding actual argument wg in advtrac. In leapfrog, call guide until the end of the run, instead of six hours before the end. Bug fix in readsulfate_preind: type of arguments.
Changed all ".f90" suffixes to ".f".
Moved everything out of libf.
Extracted ASCII art from "inigeom" into a separate text file in the documentation. "test_disvert" now creates a separate file for layer thicknesses. Moved variables from module "yomcst" to module "suphec_m" because this is where those variables are defined. Kept in "yomcst" only parameters of Earth orbit. Gave the attribute "parameter" to some variables of module "suphec_m". Variables of module "yoethf" were defined in procedure "suphec". Moved these definitions to a new procedure "yoethf" in module "yoethf_m".
Initial import
This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, enter a numeric revision.
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |