Changeset 546 for LMDZ.3.3/branches/rel-LF/libf/dyn3d

Timestamp:

Sep 22, 2004, 11:48:34 AM (20 years ago)

Author:

lmdzadmin

Message:

Suite des adaptations au portage sur SGI et VPP pour Prism (Caubel & Demory)
LF

Location:

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

Files:

• bilan_dyn.F (modified) (1 diff)
• etat0_netcdf.F (modified) (3 diffs)

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

@@ -160 +160 @@
       itau=itau+1
 
+      ucont (:,:,:) = 0.0
       if (first) then
 

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

@@ -41 +41 @@
       REAL :: solsw(klon), sollw(klon), fder(klon)
       REAL :: deltat(klon), frugs(klon,nbsrf), agesno(klon,nbsrf)
-      REAL :: rugmer(klon)
+      REAL :: rugmer(klon), run_off_lic_0(klon)
       REAL :: zmea(iip1*jjp1), zstd(iip1*jjp1)
       REAL :: zsig(iip1*jjp1), zgam(iip1*jjp1), zthe(iip1*jjp1)
@@ -671 +671 @@
       rnebcon = 0.0
       ratqs = 0.0
+      run_off_lic_0 = 0.0
 
 cIM   call phyredem("startphy.nc",phystep,radpas, co2_ppm, solaire,
@@ -679 +680 @@
      $    radsol, frugs,  agesno, 
      $    zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, 
-     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon)
+     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon,
+     $    run_off_lic_0)
 
 C     Sortie Visu pour les champs dynamiques