Changeset 106


Ignore:
Timestamp:
02/11/11 15:24:03 (11 years ago)
Author:
didier.solyga
Message:

Minor modifications

Location:
branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/enerbil.f90

    r64 r106  
    10001000 
    10011001    ! initialisation 
    1002     IF (long_print) WRITE (numout,*) ' enerbil_fusion start ', MINVAL(soilcap), MINLOC(soilcap),& 
     1002   IF (long_print) WRITE (numout,*) ' enerbil_fusion start ', MINVAL(soilcap), MINLOC(soilcap),& 
    10031003         & MAXVAL(soilcap), MAXLOC(soilcap) 
    10041004    ! 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/sechiba.f90

    r64 r106  
    639639!$$ 25/10/10 Modif DS & NViovy 
    640640 
    641 !       DO j = 2, nvm  
    642 !          IF (is_tree(j) .AND. natural(j)) THEN 
    643 !             histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
    644 !             CALL histwrite(hist_id, 'treeFrac', kjit, histvar, kjpindex, index)  
    645 !          ELSE IF ((.NOT. is_tree(j))  .AND. natural(j)) THEN 
    646 !             histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
    647 !             CALL histwrite(hist_id, 'grassFrac', kjit, histvar, kjpindex, index)  
    648 !          ELSE IF (.NOT. natural(j)) THEN 
    649 !             histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
    650 !             CALL histwrite(hist_id, 'cropFrac', kjit, histvar, kjpindex, index) 
    651 !          ELSE 
    652 !             WRITE(numout,*) 'Something wrong happened in histvar of veget_max in sechiba.f90' 
    653 !          ENDIF 
    654 !       ENDDO 
    655  
     641!!$       DO j = 2, nvm  
     642!!$          IF (is_tree(j) .AND. natural(j)) THEN 
     643!!$             histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
     644!!$             CALL histwrite(hist_id, 'treeFrac', kjit, histvar, kjpindex, index)  
     645!!$          ELSE IF ((.NOT. is_tree(j))  .AND. natural(j)) THEN 
     646!!$             histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
     647!!$             CALL histwrite(hist_id, 'grassFrac', kjit, histvar, kjpindex, index)  
     648!!$          ELSE IF (.NOT. natural(j)) THEN 
     649!!$             histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
     650!!$             CALL histwrite(hist_id, 'cropFrac', kjit, histvar, kjpindex, index) 
     651!!$          ELSE 
     652!!$             WRITE(numout,*) 'Something wrong happened in histvar of veget_max in sechiba.f90' 
     653!!$          ENDIF 
     654!!$       ENDDO 
     655!!$ 
    656656      WHERE (is_tree(:) .AND. natural(:))  
    657657         histvar(:)=SUM(veget_max(:,j))*100*contfrac(:) 
     
    668668      ENDWHERE 
    669669      CALL histwrite(hist_id, 'cropFrac', kjit, histvar, kjpindex, index) 
    670     
     670!!$    
    671671 
    672672!-------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.