Changeset 25 for codes/icosagcm/trunk/src/icosa_mod.f90

Timestamp:

07/26/12 04:05:44 (12 years ago)

Author:

dubos

Message:

Minor changes :
caldyn_sw.f90, advect_tracer.f90
icosa_mod.f90 : added parameters for NCAR test cases needing global scope
guided_mod.f90 : CALL to guided_ncar now takes tt=it*dt instead of it as input

Significant changes :
timeloop_gcm.f90 : re-activated CALL to advection scheme
disvert_ncar.f90,
etat0_ncar.f90
guided_ncar_mod.f90 : simplification, introduced several getin(...), update due to recent changes in advection test cases (deformational flow, Hadley cell)
run_adv.def : new keys, reorganized for legibility

Tests :
icosa_gcm.exe tested with ncar_adv_shape=const and ncar_adv_wind=solid,deform,hadley.
q1=1 maintained to machine accuracy. Surface pressure slightly oscillates as expected.

FIXME : Tests by Sarvesh with revision 24 show incorrect advection of cosine bell by solid-body rotation. Not fixed.

File:

• codes/icosagcm/trunk/src/icosa_mod.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/icosa_mod.f90

@@ -15 +15 @@
   USE transfert_mod
   
+  ! Variables defined by run.def
+
+  REAL(rstd) :: ncar_dz, ncar_p0, ncar_T0 ! read from run.def by disvert
+
 END MODULE icosa