Changeset 735 for codes/icosagcm/devel/src/dynamics/caldyn_vars.f90

Timestamp:

08/27/18 18:35:24 (6 years ago)

Author:

dubos

Message:

devel : Gassmann (2018) modification of TRiSK Coriolis discretization

File:

• codes/icosagcm/devel/src/dynamics/caldyn_vars.f90 (modified) (2 diffs)

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

@@ -6 +6 @@
   SAVE
 
-  INTEGER, PARAMETER :: conserv_energy=1, conserv_enstrophy=2, &
+  INTEGER, PARAMETER :: conserv_energy=1, conserv_enstrophy=2, conserv_gassmann=3, &
        kinetic_trisk=1, kinetic_consistent=2, &
        caldyn_vert_noncons=1, caldyn_vert_cons=2, &
@@ -22 +22 @@
 
   ! temporary shared variables for caldyn
-  TYPE(t_field),POINTER :: f_qu(:), f_qv(:), f_Kv(:), &
+  TYPE(t_field),POINTER :: f_qu(:), f_qv(:), f_Kv(:), f_hv(:), &
                            f_pk(:),f_wwuu(:),f_planetvel(:), &
                            f_Fel(:), f_gradPhi2(:), f_wil(:), f_Wetadot(:)