Changeset 97 for trunk/libf/phyvenus/clmain.simple
- Timestamp:
- Mar 22, 2011, 5:25:44 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libf/phyvenus/clmain.simple
r3 r97 128 128 c 129 129 #include "YOMCST.h" 130 #include "YOETHF.h"131 #include "FCTTRE.h"132 130 REAL u1lay(klon), v1lay(klon) 133 131 REAL delp(klon,klev) … … 370 368 #include "dimphy.h" 371 369 #include "YOMCST.h" 372 #include "YOETHF.h"373 #include "FCTTRE.h"374 370 #include "dimsoil.h" 375 371 #include "iniprint.h" … … 865 861 PARAMETER (zxli=.FALSE.) 866 862 c 867 #include "YOETHF.h"868 #include "FCTTRE.h"869 863 fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x)) 870 864 fins(x) = SQRT(1.0-18.0*x)
Note: See TracChangeset
for help on using the changeset viewer.