Changeset 859 for codes/icosagcm/devel/src/dynamics/compute_caldyn_solver.F90

Timestamp:

05/07/19 01:09:27 (5 years ago)

Author:

jisesh

Message:

devel: separate module for compute_NH_geopot

File:

• codes/icosagcm/devel/src/dynamics/compute_caldyn_solver.F90 (modified) (1 diff)

codes/icosagcm/devel/src/dynamics/compute_caldyn_solver.F90

@@ -15 +15 @@
     USE disvert_mod, ONLY : ptop
     USE caldyn_kernels_hevi_mod
+    USE compute_NH_geopot_mod
     REAL(rstd), PARAMETER :: pbot=1e5, rho_bot=1e6
     REAL(rstd),INTENT(IN) :: tau ! "solve" Phi-tau*dPhi/dt = Phi_rhs