Changeset 310 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/inifis.F

Timestamp:

12/15/14 09:22:51 (10 years ago)

Author:

millour

Message:

Add the possibility to have a sponge acting on the temperature
in the physics, using flag "callradsponge=.true.". The sponge
vertical extention is the same as the sponge layer in the dynamics.
EM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/inifis.F (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/inifis.F

@@ -204 +204 @@
          if (is_master) write(*,*) "Rmean = ", Rmean
          
+         if (is_master) write(*,*) 
+     &      "Add sponge after radiative transfer?"
+         callradsponge=.false.
+         call getin_p("callradsponge", callradsponge)
+         if (is_master) write(*,*) "callradsponge = ", callradsponge
+
 ! Test of incompatibility:
 ! if tlocked, then diurnal should be false