Changeset 101 for trunk/libf/phyvenus/cltrac.F
- Timestamp:
- Mar 23, 2011, 4:23:31 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libf/phyvenus/cltrac.F
r3 r101 4 4 SUBROUTINE cltrac(dtime,coef,t,tr,flux,paprs,pplay,delp, 5 5 s d_tr) 6 7 use dimphy 6 8 IMPLICIT none 7 9 c====================================================================== … … 26 28 c====================================================================== 27 29 #include "dimensions.h" 28 #include "dimphy.h"29 30 REAL dtime 30 31 REAL coef(klon,klev)
Note: See TracChangeset
for help on using the changeset viewer.