source: codes/icosagcm/trunk/src/icosa_mod.f90 @ 25

Last change on this file since 25 was 25, checked in by dubos, 12 years ago

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 size: 370 bytes
Line 
1MODULE icosa
2
3  USE genmod
4  USE ioipsl, ONLY : getin
5  USE grid_param
6  USE metric
7  USE domain_mod
8  USE dimensions
9  USE grid_param
10  USE geometry
11  USE spherical_geom_mod
12  USE vector
13  USE field_mod
14  USE write_field
15  USE transfert_mod
16 
17  ! Variables defined by run.def
18
19  REAL(rstd) :: ncar_dz, ncar_p0, ncar_T0 ! read from run.def by disvert
20
21END MODULE icosa
Note: See TracBrowser for help on using the repository browser.