Changeset 251 for codes/icosagcm/trunk/src/caldyn.f90

Timestamp:

07/23/14 12:30:36 (10 years ago)

Author:

dubos

Message:

Fix for caldyn=adv

File:

• codes/icosagcm/trunk/src/caldyn.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/caldyn.f90

@@ -1 +1 @@
 MODULE caldyn_mod
   USE icosa
-  USE caldyn_gcm_mod, ONLY : caldyn_BC
   PRIVATE
   CHARACTER(LEN=255),SAVE :: caldyn_type
@@ -31 +30 @@
       
   END SUBROUTINE init_caldyn
+
+  SUBROUTINE caldyn_BC(f_phis, f_wflux)
+    USE caldyn_gcm_mod, ONLY : caldyn_gcm_BC=>caldyn_BC
+    IMPLICIT NONE
+    TYPE(t_field), POINTER :: f_phis(:), f_wflux(:)
+    SELECT CASE (TRIM(caldyn_type))
+    CASE('gcm')
+       CALL caldyn_gcm_BC(f_phis, f_wflux)
+    END SELECT
+  END SUBROUTINE caldyn_BC
   
   SUBROUTINE caldyn(write_out,f_phis, f_ps, f_mass, f_theta_rhodz, f_u, f_q, &