Changeset 1502 for LMDZ5/trunk/libf/dyn3dpar/defrun.F

Timestamp:

Mar 21, 2011, 5:07:54 PM (14 years ago)

Author:

jghattas

Message:

Modifications for variable idissip :

• Changed name of variable idissip to dissip_period everywhere to be compatible with old .def files.
• This variable was before read from physiq.def but the value was overwritten by a calculation in inidissip. Now, if dissip_period=0 calculation is done as before(default). Else the value from physiq.def is used directly.
• leapfrog : added "AND NOT forward" at line 284 (dyn3d) and line 363(dyn3dpar) necessare if dissip_period not a multiple by iperiod.
• iniconst : removed calculation of dtdiss (calculation done in inidissip)

FC, JG

File:

• LMDZ5/trunk/libf/dyn3dpar/defrun.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/defrun.F

@@ -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  ...