Changeset 198 for branches/iLoveclim/SOURCES/eaubasale-0.5_mod.f90

Timestamp:

06/21/18 18:40:41 (6 years ago)

Author:

aquiquet

Message:

Grisli-iloveclim branch merged to trunk at revision 196

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/eaubasale-0.5_mod.f90 (modified) (2 diffs)

branches/iLoveclim/SOURCES/eaubasale-0.5_mod.f90

@@ -113 +113 @@
 kondmax   = 1.*SECYEAR 
 hdotwater(:,:)=0.
-
+keff(:,:) = kond(:,:)
+pgx(:,:) = 0.
+pgy(:,:) = 0.
 
 NXlocal=NX
@@ -211 +213 @@
      do j=2,ny
         do i=2,nx
-           if (H(i,j).gt.25.) then
+           if (H(i,j).gt.25.) then !afq: pourquoi GT 25 ??? a tester avec des valeurs plus petites
               !           calcul du gradient de pression
               if (flotmx(i,j)) then