Changeset 929 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

Mar 20, 2008, 1:14:18 PM (16 years ago)

Author:

lmdzadmin

Message:

Ecriture plus compacte des sorties et ajout variables LMDZ AI
IM

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1876 +1876 @@
 c#endif
 
-      call phys_output_open ( jj_nb, jjmp1, nqmax,
-     &               nlevSTD, clevSTD, nbteta, ctetaSTD,
-     &      dtime, presnivs, ok_veget, ocean, iflag_pbl,
-     &               ok_mensuel,ok_journe,ok_hf,ok_instan,
-     &               rlon, rlat, nid_files)
-
+       call phys_output_open(jjmp1,nqmax,nlevSTD,clevSTD,nbteta, 
+     &                        ctetaSTD,dtime,presnivs,ok_veget,
+     &                        ocean,iflag_pbl,ok_mensuel,ok_journe,
+     &                        ok_hf,ok_instan,nid_files)
 
 #ifdef histISCCP
@@ -3638 +3636 @@
 !==========================================================================
 
-      if (klon.eq.1) then
+      if (1.eq.1) then
       write(lunout,*) 'FIN DE PHYSIQ !!!!!!!!!!!!!!!!!!!!'
       write(lunout,*)
-     s 'nlon,nlev,nqmax,debut,lafin,rjourvrai,gmtime,pdtphys'
+     s 'nlon,nlev,nqmax,debut,lafin,rjourvrai,gmtime,pdtphys pct tlos'
       write(lunout,*)
-     s  nlon,nlev,nqmax,debut,lafin,rjourvrai,gmtime,pdtphys
+     s  nlon,nlev,nqmax,debut,lafin,rjourvrai,gmtime,pdtphys,
+     s  pctsrf(igout,is_ter), pctsrf(igout,is_lic), pctsrf(igout,is_oce),
+     s  pctsrf(igout,is_sic)
       write(lunout,*) 'd_t_dyn,d_t_con,d_t_lsc,d_t_ajsb,d_t_ajs,d_t_eva'
       do k=1,nlev