Changeset 779 for trunk/LMDZ.VENUS/libf
- Timestamp:
- Sep 12, 2012, 3:57:55 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/writerestartphy.F
r101 r779 1 SUBROUTINE writerestartphy(fichnom,tab_cntrl, 1 SUBROUTINE writerestartphy(fichnom,tab_cntrl,klon,klev, 2 2 . rlat,rlon, tsol,tsoil, 3 3 . albedo, … … 10 10 c Ecriture de l'etat de redemarrage pour la physique (pour newstart) 11 11 c====================================================================== 12 use dimphy13 12 IMPLICIT none 14 13 #include "dimensions.h" … … 17 16 c====================================================================== 18 17 CHARACTER*13 fichnom 19 INTEGER length 18 INTEGER length,klon,klev 20 19 PARAMETER (length=100) 21 20 REAL tab_cntrl(length)
Note: See TracChangeset
for help on using the changeset viewer.