Ignore:
Timestamp:
2011-06-17T14:02:17+02:00 (13 years ago)
Author:
didier.solyga
Message:

Externalized version merged with the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/lpj_constraints.f90

    r114 r257  
    129129 
    130130             WHERE ( t2m_min_daily(:) .LT. tmin_crit(j) ) 
    131                 adapted(:,j) = 0. 
     131                adapted(:,j) = zero 
    132132             ENDWHERE 
    133133 
    … …  
    135135             !  ( adapted will approach 1) 
    136136 
    137              adapted(:,j) = 1. - ( 1. - adapted(:,j) ) * (tau_adapt- dt)/tau_adapt 
     137             adapted(:,j) = un - ( un - adapted(:,j) ) * (tau_adapt- dt)/tau_adapt 
    138138 
    139139          ENDIF 
    … …  
    147147 
    148148             WHERE ( when_growthinit(:,j) .GT. too_long*one_year ) 
    149                 adapted(:,j) = 0. 
     149                adapted(:,j) = zero 
    150150             ENDWHERE 
    151151 
    … …  
    160160             ! 2.1.3.1 several PFTs (ex: evergreen) don't need vernalization 
    161161 
    162              regenerate(:,j) = 1. 
     162             regenerate(:,j) = un 
    163163 
    164164          ELSE 
    … …  
    167167 
    168168             WHERE ( t2m_month(:) .LE. tcm_crit(j) ) 
    169                 regenerate(:,j) = 1. 
     169                regenerate(:,j) = un 
    170170             ENDWHERE 
    171171 
    … …  
    181181 
    182182          WHERE ( regenerate(:,j) .LE. regenerate_min ) 
    183              adapted(:,j) = 0. 
     183             adapted(:,j) = zero 
    184184          ENDWHERE 
    185185 
    … …  
    190190          ! 
    191191 
    192           adapted(:,j) = 0. 
    193  
    194           regenerate(:,j) = 0. 
     192          adapted(:,j) = zero 
     193 
     194          regenerate(:,j) = zero 
    195195 
    196196       ENDIF 
Note: See TracChangeset for help on using the changeset viewer.