Changeset 291 for codes/icosagcm/branches

Timestamp:

10/22/14 11:53:10 (10 years ago)

Author:

milmd

Message:

Sponge layer. Correct a bug when using no sponge layer.

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/sponge.f90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/sponge.f90

@@ -38 +38 @@
     CALL getin("mode_sponge",mode_sponge)
     PRINT*,'mode_sponge = ',mode_sponge
+
+    IF (iflag_sponge == 0) THEN
+      PRINT*,'init_sponge: no sponge'
+      RETURN
+    ENDIF
 
 !$OMP MASTER