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

Timestamp:

Jun 6, 2001, 4:27:20 PM (23 years ago)

Author:

lmdzadmin

Message:

Impression debug dans clmain MAFO
Introduction du physiq.def LF
LF

File:

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

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

@@ -81 +81 @@
       EXTERNAL fromcpl, intocpl, inicma
 c      ocean = type de modele ocean a utiliser: force, slab, couple
-      character *6 ocean
-      parameter (ocean = 'force ')
+      character*6 ocean
+      SAVE ocean
+
+c      parameter (ocean = 'force ')
 c     parameter (ocean = 'couple')
       logical ok_ocean
@@ -94 +96 @@
 ccc      PARAMETER (soil_model=.FALSE.)
       logical ok_veget
-      parameter (ok_veget = .true.)
+      save ok_veget
+c     parameter (ok_veget = .true.)
 c      parameter (ok_veget = .false.)
 c======================================================================
@@ -112 +115 @@
 c======================================================================
       LOGICAL ok_journe ! sortir le fichier journalier
-      PARAMETER (ok_journe=.true.)
+      save ok_journe
+c      PARAMETER (ok_journe=.true.)
 c
       LOGICAL ok_mensuel ! sortir le fichier mensuel
-      PARAMETER (ok_mensuel=.true.)
+      save ok_mensuel
+c      PARAMETER (ok_mensuel=.true.)
 c
       LOGICAL ok_instan ! sortir le fichier instantane
-      PARAMETER (ok_instan=.false.)
+      save ok_instan
+c      PARAMETER (ok_instan=.true.)
 c
       LOGICAL ok_region ! sortir le fichier regional
@@ -527 +533 @@
        IF (debut) THEN
 
+c
+c appel a la lecture du run.def physique
+c
+         call conf_phys(ocean, ok_veget, ok_journe, ok_mensuel,
+     .                  ok_instan)
+
          DO k = 2, nvm          ! pas de vegetation
             DO i = 1, klon
@@ -786 +798 @@
 C
            call histdef(nid_day, "albe_"//clnsurf(nsrf), 
-     $         "Latent heat flux "//clnsurf(nsrf), "W/m2",  
+     $         "Albedo surf. "//clnsurf(nsrf), "W/m2",  
      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
      $         "ave(X)", zsto,zout)
@@ -1023 +1035 @@
 c
            call histdef(nid_mth, "albe_"//clnsurf(nsrf), 
-     $         "Latent heat flux "//clnsurf(nsrf), "W/m2",  
+     $         "Albedo surf. "//clnsurf(nsrf), "W/m2",  
      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
      $         "ave(X)", zsto,zout)
@@ -1371 +1383 @@
 c
            call histdef(nid_ins, "albe_"//clnsurf(nsrf), 
-     $         "Albedo "//clnsurf(nsrf), "-",  
+     $         "Albedo surf. "//clnsurf(nsrf), "-",  
      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
      $         "inst(X)", zsto,zout)