Changeset 431 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

Timestamp:

Dec 19, 2002, 3:52:05 PM (22 years ago)

Author:

lmdzadmin

Message:

Convergence avec la version de Ionela Musat

bilan_dyn.F : correction bug dimension (PF)
conf_gcm.F : remize a zero de la date initiale (LF)
control.h : remize a zero de la date initiale (LF)
diagedyn.F : correction bug dimension (IM)
etat0_netcdf.F : lecture de co2_ppm & solaire ds physiq.def
gcm.F : remize a zero de la date initiale (LF)

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

@@ -92 +92 @@
       REAL :: pbaru(ip1jmp1,llm),pbarv(ip1jm,llm)
       REAL :: w(ip1jmp1,llm)
-      REAL ::phystep,co2_ppm,solaire
+cIM   REAL ::phystep,co2_ppm,solaire
+      REAL ::phystep
       INTEGER :: radpas
        real zrel(iip1*jjp1),chmin,chmax
@@ -613 +614 @@
       radpas    = NINT (86400./phystep/ FLOAT(nbapp_rad) )
       write(*,*)'phystep =', phystep, radpas
-      co2_ppm   = 330.0
-      solaire   = 1370.0
+cIM : lecture de co2_ppm & solaire ds physiq.def
+c     co2_ppm   = 348.0
+c     solaire   = 1365.0
 
 c