Changeset 102 for trunk/libf/phytitan/hgardfou.F
- Timestamp:
- Mar 24, 2011, 11:46:27 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libf/phytitan/hgardfou.F
r3 r102 3 3 ! 4 4 SUBROUTINE hgardfou (t,tsol,text) 5 IMPLICIT none6 5 c====================================================================== 7 6 c Verifier la temperature 8 7 c====================================================================== 8 use dimphy 9 IMPLICIT none 9 10 #include "dimensions.h" 10 #include "dimphy.h"11 11 #include "YOMCST.h" 12 12 REAL t(klon,klev), tsol(klon)
Note: See TracChangeset
for help on using the changeset viewer.