Changeset 2169 for LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

Timestamp:

Dec 15, 2014, 4:47:34 PM (10 years ago)

Author:

acozic

Message:

1- correct a missing in commit 2146 in infotrac
2- modify the declaration of solsym to use the same variable in differents routines

File:

• LMDZ5/trunk/libf/phylmd/phytrac_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

@@ -308 +308 @@
 !$OMP THREADPRIVATE(lessivage)
 
-    CHARACTER(len=8),DIMENSION(nbtr) :: solsym
     !RomP >>>
     INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
@@ -557 +556 @@
             cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon,iflag_vdf_trac>=0,sh, &
             rh, pphi, ustar, wstar, ale_bl, ale_wake,  u10m, v10m, &
-            tr_seri, source, solsym, d_tr_cl,d_tr_dec, zmasse)               !RomP
+            tr_seri, source, d_tr_cl,d_tr_dec, zmasse)               !RomP
 
     CASE('inca')
@@ -572 +571 @@
             tau_aero, piz_aero, cg_aero,        ccm,       &
             rfname,                                        &
-            tr_seri,  source,   solsym)      
+            tr_seri,  source)      
 
     CASE('repr')
@@ -580 +579 @@
             presnivs, xlat, xlon, pphis, pphi, &
             t_seri, pplay, paprs, sh , &
-            tr_seri, solsym)
+            tr_seri)
 
     END SELECT