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

Timestamp:

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

Author:

dubos

Message:

devel : compute_X => compute_X_unst or compute_X_hex in init_caldyn

File:

• codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90 (modified) (1 diff)

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

@@ -150 +150 @@
        qv=f_qv(ind)
        hv=f_hv(ind)
+!       PRINT *, 'caldyn_hevi : u, mass, qu qv, hv', &
+!            SHAPE(u), SHAPE(mass), SHAPE(qu), SHAPE(qv), SHAPE(hv)
        CALL compute_pvort_only(u,mass,qu,qv,hv)
        IF(caldyn_kinetic==kinetic_consistent) THEN