Changeset 2117 for LMDZ5/trunk/libf/phylmd/1D_read_forc_cases.h

Timestamp:

Sep 11, 2014, 8:47:39 PM (10 years ago)

Author:

fhourdin

Message:

Modification de la lecture du cas 1D AMMA en vue d'une generatlisation
de la specification des forcages decidee dans le cadre de DEPHY.
Passage a une allocation dynamique des fichiers pour permettre
de lire la dimension des variables dans le fichier de forcage.
Marche avec AMMA et le noveau cas IHOP.

Change of 1D cases forcing. Introduction of allocated variable.
For AMMA and IHOP.

File:

• LMDZ5/trunk/libf/phylmd/1D_read_forc_cases.h (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/1D_read_forc_cases.h

@@ -290 +290 @@
 
       if (forcing_amma) then
-!read AMMA forcings
-      fich_amma='amma.nc'
-      call read_amma(fich_amma,nlev_amma,nt_amma                            &
-     &     ,z_amma,plev_amma,th_amma,q_amma,u_amma,v_amma,vitw_amma         &
-     &     ,ht_amma,hq_amma,sens_amma,lat_amma)
+
+      call read_1D_cases
 
       write(*,*) 'Forcing AMMA lu'