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

Timestamp:

Jun 11, 2008, 1:14:41 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Pour des raisons pratiques (besoin de tester facilement les parametrisations
physiques en 1D et 3D), les arguments des routines de lecture et d'ecriture
de l'etat initial de la physique ont disparu des appels à ces routines et sont
maintenant passés par le module phys_state_var_mod
LF

File:

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

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -24 +24 @@
       USE vampir
       USE pbl_surface_mod, ONLY : pbl_surface
+      USE surface_data,     ONLY : ocean, ok_veget
       USE phys_local_var_mod ! Variables internes non sauvegardees de la physique
       USE phys_state_var_mod ! Variables sauvegardees de la physique
@@ -535 +536 @@
 c Variables propres a la physique
 c
-      INTEGER radpas
-      SAVE radpas                 ! frequence d'appel rayonnement
-c$OMP THREADPRIVATE(radpas)
+c      INTEGER radpas
+c      SAVE radpas                 ! frequence d'appel rayonnement
+ccccccccc$OMP THREADPRIVATE(radpas)
 c
 cc      INTEGER iflag_con
@@ -1261 +1262 @@
 
 
-         CALL phyetat0 ("startphy.nc",dtime,co2_ppm_etat0,solaire_etat0,
-     .       rlat,rlon,pctsrf, ftsol,
-     .       ocean, ok_veget,
-     .       falb1, falb2, rain_fall,snow_fall,
-     .       solsw, sollw,
-     .       radsol,clesphy0,
-     .       zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro,tabcntr0,
-     .       t_ancien, q_ancien, ancien_ok, rnebcon, ratqs,clwcon,
-     .       pbl_tke, zmax0, f0, ema_work1, ema_work2)
+         CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0)
 
 
@@ -3354 +3347 @@
       IF (lafin) THEN
          itau_phy = itau_phy + itap
-         CALL phyredem ("restartphy.nc",dtime,radpas,ocean,
-     .      rlat, rlon, pctsrf, ftsol,
-     .      falb1, falb2, rain_fall, 
-     .      snow_fall,
-     .      solsw, sollw,
-     .      radsol,
-     .      zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro,
-     .      t_ancien, q_ancien, rnebcon, ratqs, clwcon,
-     .      pbl_tke, zmax0, f0, ema_work1, ema_work2)
+         CALL phyredem ("restartphy.nc")
          open(97,form="unformatted",file="finbin")
          write(97) u_seri,v_seri,t_seri,q_seri