Changeset 3862

Timestamp:

Jan 7, 2016, 9:52:33 AM (9 years ago)

Author:

ymipsl

Message:

Add new etat0 (etat0_database) comming from regridding the standard etat0 LMDZ files.

YM

Location:

dynamico_lmdz/aquaplanet/ICOSAGCM/src

Files:

• etat0.f90 (modified) (2 diffs)
• etat0_database.f90 (added)
• q_sat.f90 (added)
• vertical_remap.f90 (added)

dynamico_lmdz/aquaplanet/ICOSAGCM/src/etat0.f90

@@ -28 +28 @@
     USE etat0_venus_mod,  ONLY : etat0_venus=>etat0  
     USE etat0_start_file_mod, ONLY : etat0_start_file=>etat0  
+    USE etat0_database_mod, ONLY : etat0_database=>etat0  
 
     IMPLICIT NONE
@@ -72 +73 @@
     CASE ('start_file')
        CALL etat0_start_file(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+    CASE ('database')
+       CALL etat0_database(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
     CASE ('academic')
        CALL etat0_academic(f_ps,f_phis,f_theta_rhodz,f_u, f_q)