Changeset 1707 for LMDZ5/branches/testing/libf/dyn3dmem/defrun.F

Timestamp:

Jan 11, 2013, 10:19:19 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/defrun.F (modified) (2 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/defrun.F

@@ -1 +1 @@
 !
-! $Id: defrun.F 1403 2010-07-01 09:02:53Z fairhead $
+! $Id$
 !
 c
@@ -132 +132 @@
 
       READ (tapedef,9001) ch1,ch4
-      READ (tapedef,*)    idissip
-      WRITE(tapeout,9001) ch1,'idissip'
-      WRITE(tapeout,*)    idissip
+      READ (tapedef,*)    dissip_period
+      WRITE(tapeout,9001) ch1,'dissip_period'
+      WRITE(tapeout,*)    dissip_period
 
 ccc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...