Changeset 544 for codes/icosagcm/trunk/src/etat0.f90

Timestamp:

08/10/17 16:02:21 (7 years ago)

Author:

dubos

Message:

Held & Suarez : user-definable atmospheric mass, used for CMIP5 aquaplanet

File:

• codes/icosagcm/trunk/src/etat0.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/etat0.f90

@@ -16 +16 @@
   USE etat0_database_mod, ONLY: init_etat0_database => init_etat0 
   USE etat0_start_file_mod, ONLY: init_etat0_start_file => init_etat0 
+  USE etat0_heldsz_mod, ONLY: init_etat0_held_suarez => init_etat0 
   IMPLICIT NONE
 
@@ -32 +33 @@
       CASE ('academic')
       CASE ('held_suarez')
+         CALL init_etat0_held_suarez
       CASE ('venus')
       CASE ('dcmip1')