Changeset 935 for codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90

Timestamp:

07/03/19 17:15:11 (5 years ago)

Author:

dubos

Message:

devel : interfaces for caldyn_fast and caldyn_slow_hydro

File:

• codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90

@@ -5 +5 @@
   USE compute_caldyn_vert_mod, ONLY : compute_caldyn_vert => compute_caldyn_vert_manual
   USE compute_caldyn_vert_NH_mod, ONLY : compute_caldyn_vert_NH => compute_caldyn_vert_NH_manual
-  USE compute_theta_mod, ONLY : compute_theta => compute_theta_manual
-  USE compute_geopot_mod, ONLY : compute_geopot => compute_geopot_manual
   USE compute_caldyn_kv_mod, ONLY : compute_caldyn_kv
   USE compute_caldyn_Coriolis_mod, ONLY : compute_caldyn_Coriolis => compute_caldyn_Coriolis_manual
@@ -12 +10 @@
   USE compute_caldyn_slow_NH_mod, ONLY : compute_caldyn_slow_NH
   USE compute_caldyn_solver_mod, ONLY : compute_caldyn_solver
-  USE compute_caldyn_fast_mod, ONLY : compute_caldyn_fast => compute_caldyn_fast_manual
   USE compute_NH_geopot_mod, ONLY : compute_NH_geopot
   IMPLICIT NONE
@@ -35 +32 @@
     USE output_field_mod
     USE checksum_mod
-    USE compute_caldyn_mod, ONLY : compute_pvort_only
+    USE compute_caldyn_mod, ONLY : compute_pvort_only, compute_theta, &
+         compute_geopot, compute_caldyn_fast
     IMPLICIT NONE
     LOGICAL,INTENT(IN)    :: write_out