Changeset 134 for branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba

Timestamp:

2011-03-08T09:57:58+01:00 (14 years ago)

Author:

didier.solyga

Message:

delete comments made for debug

Location:

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba

Files:

• hydrolc.f90 (modified) (2 diffs)
• slowproc.f90 (modified) (3 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.f90

@@ -1959 +1959 @@
         !
         IF ( ABS(dsp(ji,jv)-dsg(ji,jv)) .LT. min_resdis ) THEN
-            bqsb(ji,jv) = bqsb(ji,jv) + gqsb(ji,jv)
-            dsp(ji,jv) = dpu_cste - bqsb(ji,jv) / ruu_ch(ji)
-            gqsb(ji,jv) = zero
-            dsg(ji,jv) = zero
-            dss(ji,jv) = dsp(ji,jv)
+           bqsb(ji,jv) = bqsb(ji,jv) + gqsb(ji,jv)
+           dsp(ji,jv) = dpu_cste - bqsb(ji,jv) / ruu_ch(ji)
+           gqsb(ji,jv) = zero
+           dsg(ji,jv) = zero
+           dss(ji,jv) = dsp(ji,jv)
         ENDIF
         !
@@ -2196 +2196 @@
       ENDDO
     ENDDO
-
-
-!!$DS Debug humrel 14/02/2011
-!!$    DO jv = 1, nvm
-!!$      DO ji=1,kjpindex
-!!$         WRITE(numout,*)'the value of humrel for the PFT 10 is : ',humrel(ji,10) 
-!!$         WRITE(numout,*)'the value of humrel for the PFT 12 is : ',humrel(ji,12) 
-!!$      ENDDO
-!!$    ENDDO
 
     !

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/slowproc.f90

@@ -899 +899 @@
        CALL setvar_p (lai, val_exp, 'SECHIBA_LAI', llaimax)
 
-
-!!$  15/12/2010   DS it seems to have a bug with setvar_p : reading more parameters than necessary
  
        !Config Key  = SOIL_FRACTIONS
@@ -1484 +1482 @@
        ENDDO
     ENDDO
+    
     !
     ! 3. if lai of a vegetation type (jv > 1) is small, increase soil part
@@ -1521 +1520 @@
        ENDIF
     ENDDO
+
     !
     ! 4. Sum up surface fractions and test if the sum is equal to 1