Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/initphysto.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/initphysto.F
r1279 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 C … … 12 12 USE IOIPSL 13 13 USE iophy 14 USE control_mod 15 14 16 implicit none 15 17 … … 52 54 #include "serre.h" 53 55 #include "indicesol.h" 54 #include "control.h"55 56 cym#include "dimphy.h" 56 57 … … 108 109 C 109 110 DO l=1,llm 110 nivsigs(l)= float(l)111 nivsigs(l)=REAL(l) 111 112 ENDDO 112 113
Note: See TracChangeset
for help on using the changeset viewer.