Changeset 101 for trunk/libf/phyvenus/printflag.F

Timestamp:

Mar 23, 2011, 4:23:31 PM (14 years ago)

Author:

slebonnois

Message:

SL: modifications pour arriver a compiler le gcm VENUS !
Ca marche !
A noter: modifs de makelmdz

File:

• trunk/libf/phyvenus/printflag.F (modified) (7 diffs)

trunk/libf/phyvenus/printflag.F

@@ -12 +12 @@
 
        REAL tabcntr0( 100 )
-       LOGICAL cycle_diurn0,soil_model0,new_oliq0,ok_orodr0
+       LOGICAL cycle_diurn0,soil_model0,ok_orodr0
        LOGICAL ok_orolf0,ok_gw_nonoro0
        LOGICAL ok_journe,ok_instan
@@ -32 +32 @@
        PRINT 100
 
-c      PRINT 11, new_oliq, ok_orodr, ok_orolf, ok_gw_nonoro  
-c      PRINT 100
+       PRINT 11, ok_orodr, ok_orolf, ok_gw_nonoro  
+       PRINT 100
 
        PRINT 12, nbapp_rad
@@ -48 +48 @@
         cycle_diurn0  = .FALSE.
         soil_model0   = .FALSE.
-        new_oliq0     = .FALSE.
         ok_orodr0     = .FALSE.
         ok_orolf0     = .FALSE.
@@ -55 +54 @@
         IF( tabcntr0( 7 ).EQ. 1. )   cycle_diurn0 = .TRUE.
         IF( tabcntr0( 8 ).EQ. 1. )    soil_model0 = .TRUE.
-        IF( tabcntr0( 9 ).EQ. 1. )      new_oliq0 = .TRUE.
         IF( tabcntr0(10 ).EQ. 1. )      ok_orodr0 = .TRUE.
         IF( tabcntr0(11 ).EQ. 1. )      ok_orolf0 = .TRUE.
@@ -82 +80 @@
      ,        soil_model )     THEN
         PRINT 14, soil_model0, soil_model
-        PRINT 100
-       ENDIF
-
-       IF( new_oliq0.AND..NOT.new_oliq.OR..NOT.new_oliq0.AND.
-     ,        new_oliq )     THEN
-        PRINT 16, new_oliq0, new_oliq
         PRINT 100
        ENDIF
@@ -127 +119 @@
 
 
- 11    FORMAT(2x,5(1H*),'  new_oliq = ',l3,3x,', Ok_orodr = ',
+ 11    FORMAT(2x,5(1H*),', Ok_orodr = ',
      , l3,3x,', Ok_orolf = ',l3,3x,5(1H*) )
 
@@ -141 +133 @@
 
  15    FORMAT(2x,'$$$$$$$$   Attention !!      ok_orodr  different  sur',
-     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
-
- 16    FORMAT(2x,'$$$$$$$$   Attention !!      new_oliq  different  sur',
      , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)