Changeset 2176 for LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/physiq.F90

Timestamp:

Dec 24, 2014, 8:23:19 PM (10 years ago)

Author:

jescribano

Message:

SPLA output in hist files

File:

• LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/physiq.F90 (modified) (3 diffs)

LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/physiq.F90

@@ -953 +953 @@
 
   !-output phytrac variables
-  REAL diff_aod550_tot(ngridmx)  ! epaisseur optique total aerosol 550  nm
-  REAL diag_aod865_tot(ngridmx)  ! epaisseur optique total aerosol 865 nm
-  REAL diff_aod550_tr2(ngridmx)  ! epaisseur optique Traceur 2 aerosol 550 nm, diagnostic
-  REAL diag_aod865_tr2(ngridmx)  ! epaisseur optique Traceur 2 aerosol 865 nm, diagnostic
-  REAL diag_aod550_dust(ngridmx) ! epaisseur optique Dust coarse aerosol 550 nm, diagnostic
-  REAL diag_aod865_dust(ngridmx) ! epaisseur optique Dust coarse aerosol 865 nm, diagnostic
-  REAL diag_aod550_dustsco(ngridmx) ! epaisseur optique Dust SCOarse aerosol 550 nm, diagnostic
-  REAL diag_aod865_dustsco(ngridmx) ! epaisseur optique Dust SCOarse aerosol 865 nm, diagnostic
-  REAL diag_aod550_ss(ngridmx)   ! epaisseur optique Sels marins aerosol 550 nm, diagnostic
-  REAL diag_aod865_ss(ngridmx)   ! epaisseur optique Sels marins aerosol 865 nm, diagnostic
+!JE20141224 <<
+!  REAL diff_aod550_tot(ngridmx)  ! epaisseur optique total aerosol 550  nm
+!  REAL diag_aod865_tot(ngridmx)  ! epaisseur optique total aerosol 865 nm
+!  REAL diff_aod550_tr2(ngridmx)  ! epaisseur optique Traceur 2 aerosol 550 nm, diagnostic
+!  REAL diag_aod865_tr2(ngridmx)  ! epaisseur optique Traceur 2 aerosol 865 nm, diagnostic
+!  REAL diag_aod550_dust(ngridmx) ! epaisseur optique Dust coarse aerosol 550 nm, diagnostic
+!  REAL diag_aod865_dust(ngridmx) ! epaisseur optique Dust coarse aerosol 865 nm, diagnostic
+!  REAL diag_aod550_dustsco(ngridmx) ! epaisseur optique Dust SCOarse aerosol 550 nm, diagnostic
+!  REAL diag_aod865_dustsco(ngridmx) ! epaisseur optique Dust SCOarse aerosol 865 nm, diagnostic
+!  REAL diag_aod550_ss(ngridmx)   ! epaisseur optique Sels marins aerosol 550 nm, diagnostic
+!  REAL diag_aod865_ss(ngridmx)   ! epaisseur optique Sels marins aerosol 865 nm, diagnostic
+!JE20141224 >>
   ! others
   REAL tsol(ngridmx)
@@ -3835 +3837 @@
                   lmt_omff, lmt_omnff, lmt_ombb_l, lmt_ombb_h, & !E
                   lmt_omnat, lmt_omba, & !E
-                  tr_seri, & !O
-                  diff_aod550_tot,diag_aod865_tot, & !O
-                  diff_aod550_tr2,diag_aod865_tr2, & !O
-                  diag_aod550_dust,diag_aod865_dust, & !O
-                  diag_aod550_dustsco,diag_aod865_dustsco, & !O
-                  diag_aod550_ss,diag_aod865_ss) !O
+                  tr_seri)  !O
+!JE20141224<<
+!                  tr_seri, & !O
+!                  diff_aod550_tot,diag_aod865_tot, & !O
+!                  diff_aod550_tr2,diag_aod865_tr2, & !O
+!                  diag_aod550_dust,diag_aod865_dust, & !O
+!                  diag_aod550_dustsco,diag_aod865_dustsco, & !O
+!                  diag_aod550_ss,diag_aod865_ss) !O
+!JE20141224>>
 !  ENDIF
 !   DO i=1,nbtr
@@ -4142 +4147 @@
 
   !On effectue les sorties:
-  print *,' JE: aqui deberia escribir la salida!!!!!!!!!!'
 
   CALL phys_output_write(itap, pdtphys, paprs, pphis,               &