Changeset 178 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

Timestamp:

Mar 9, 2001, 4:46:19 PM (24 years ago)

Author:

lmdzadmin

Message:

changement sur ok_veget et ocean
LF

File:

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

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -79 +79 @@
 c      ocean = type de modele ocean a utiliser: force, slab, couple
       character *6 ocean
-c     parameter (ocean = 'force ')
-      parameter (ocean = 'couple')
+      parameter (ocean = 'force ')
+c     parameter (ocean = 'couple')
       logical ok_ocean
 c======================================================================
@@ -91 +91 @@
 ccc      PARAMETER (soil_model=.FALSE.)
       logical ok_veget
-      parameter (ok_veget = .true.)
+      parameter (ok_veget = .false.)
+c      parameter (ok_veget = .true.)
 c======================================================================
 c Dans les versions precedentes, l'eau liquide nuageuse utilisee dans