Changeset 32 for codes/icosagcm/trunk/src/dissip_gcm.f90

Timestamp:

07/27/12 16:04:22 (12 years ago)

Author:

ymipsl

Message:

externalize earth constant in run.def and add scalling factor functionnality

YM

File:

• codes/icosagcm/trunk/src/dissip_gcm.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/dissip_gcm.f90

@@ -79 +79 @@
     tau_graddiv(:)=5000
     CALL getin("tau_graddiv",tau)
-    tau_graddiv(:)=tau
+    tau_graddiv(:)=tau/scale_factor
 
     CALL getin("nitergdiv",nitergdiv)
@@ -85 +85 @@
     tau_gradrot(:)=5000
     CALL getin("tau_gradrot",tau_gradrot)
-    tau_gradrot(:)=tau
+    tau_gradrot(:)=tau/scale_factor
 
     CALL getin("nitergrot",nitergrot)
@@ -92 +92 @@
     tau_divgrad(:)=5000
     CALL getin("tau_divgrad",tau)
-    tau_divgrad(:)=tau
+    tau_divgrad(:)=tau/scale_factor
 
     CALL getin("niterdivgrad",niterdivgrad)