Changeset 97 for trunk/libf/phyvenus/clmain.classic
- Timestamp:
- Mar 22, 2011, 5:25:44 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libf/phyvenus/clmain.classic
r3 r97 134 134 c 135 135 #include "YOMCST.h" 136 #include "YOETHF.h"137 #include "FCTTRE.h"138 136 REAL u1lay(klon), v1lay(klon) 139 137 REAL delp(klon,klev) … … 499 497 #include "dimphy.h" 500 498 #include "YOMCST.h" 501 #include "YOETHF.h"502 #include "FCTTRE.h"503 499 #include "dimsoil.h" 504 500 #include "iniprint.h" … … 994 990 PARAMETER (zxli=.FALSE.) 995 991 c 996 #include "YOETHF.h"997 #include "FCTTRE.h"998 992 fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x)) 999 993 fins(x) = SQRT(1.0-18.0*x)
Note: See TracChangeset
for help on using the changeset viewer.