Changeset 1539 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jun 9, 2011, 12:13:33 AM (13 years ago)

Author:

musat

Message:

Ajouts CFMIP2/CMIP5

• 6eme fichier de sortie "stations" histstn.nc qui necessite 2 fichiers (voir DefLists?): npCFMIP_param.data(_*) contenant le nombre de points (120 pour simulations AMIP, 73 pour aqua) pointlocations.txt(_*) contenant le numero, les coordonnees (lon,lat) et le nom de chaque station
• flag LOGICAL dans tous les appels histwrite_phy pour pouvoir sortir le fichier histstn.nc

NB: 1) les flags de type phys_ que l'on met dans le physiq.def_L* pour ajouter plus de sorties

necessitent dorenavant 6 valeurs, la 6eme correspondant au fichier histstn.nc

2) par defaut le fichier histstn.nc ne sort pas; pour le sortir ajouter les lignes suivantes

dans physiq.def_L*

### Type de fichier : global (n) ou stations (y)
phys_out_filestations = n n n n n y

• introduction de 2 jeux de flags pour les taux des GES; taux actuels avec suffixes _act, taux futurs avec "_per" avec 2 appels au rayonnement si taux "_per" different des taux "_act" (utiles pour diags. CFMIP 4CO2)
• flags "betaCRF" pour calculs CRF pour experiences sensibilite proprietes optiques eau liquide nuageuse avec initialisations par defaut; sinon besoin de fichier beta_crf.data

Ajout flag LOGICAL lCOSP necessaire pour sortir un fichier stations
IM

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -169 +169 @@
       !$OMP THREADPRIVATE(load_tmp7) 
 
+!IM ajout variables CFMIP2/CMIP5
+      REAL,ALLOCATABLE,SAVE :: topswad_aerop(:), solswad_aerop(:)
+!$OMP THREADPRIVATE(topswad_aerop, solswad_aerop)
+      REAL,ALLOCATABLE,SAVE :: topswai_aerop(:), solswai_aerop(:)
+!$OMP THREADPRIVATE(topswai_aerop, solswai_aerop)
+      REAL,ALLOCATABLE,SAVE :: topswad0_aerop(:), solswad0_aerop(:)
+!$OMP THREADPRIVATE(topswad0_aerop, solswad0_aerop)
+      REAL,ALLOCATABLE,SAVE :: topsw_aerop(:,:), topsw0_aerop(:,:)  
+!$OMP THREADPRIVATE(topsw_aerop, topsw0_aerop)
+      REAL,ALLOCATABLE,SAVE :: solsw_aerop(:,:), solsw0_aerop(:,:)
+!$OMP THREADPRIVATE(solsw_aerop, solsw0_aerop)
+      REAL,ALLOCATABLE,SAVE :: topswcf_aerop(:,:), solswcf_aerop(:,:)
+!$OMP THREADPRIVATE(topswcf_aerop, solswcf_aerop)
+
 CONTAINS
 
@@ -252 +266 @@
       allocate(load_tmp7(klon))
 
+!IM ajout variables CFMIP2/CMIP5
+      ALLOCATE(topswad_aerop(klon), solswad_aerop(klon))
+      ALLOCATE(topswai_aerop(klon), solswai_aerop(klon))
+      ALLOCATE(topswad0_aerop(klon), solswad0_aerop(klon))
+      ALLOCATE(topsw_aerop(klon,naero_grp), topsw0_aerop(klon,naero_grp))
+      ALLOCATE(solsw_aerop(klon,naero_grp), solsw0_aerop(klon,naero_grp))
+      ALLOCATE(topswcf_aerop(klon,naero_grp), solswcf_aerop(klon,naero_grp))
+
 END SUBROUTINE phys_local_var_init
 
@@ -332 +354 @@
       deallocate(d_u_hin,d_v_hin,d_t_hin)
 
+!IM ajout variables CFMIP2/CMIP5
+      deallocate(topswad_aerop, solswad_aerop)
+      deallocate(topswai_aerop, solswai_aerop)
+      deallocate(topswad0_aerop, solswad0_aerop)
+      deallocate(topsw_aerop, topsw0_aerop)
+      deallocate(solsw_aerop, solsw0_aerop)
+      deallocate(topswcf_aerop, solswcf_aerop)
+
 END SUBROUTINE phys_local_var_end