Ignore:
Timestamp:
2011-02-11T15:14:57+01:00 (14 years ago)
Author:
didier.solyga
Message:

Add some first_call and IMPLICIT NONE

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/constantes.f90

    r72 r102  
    988988 SUBROUTINE getin_sechiba_parameters 
    989989 
     990  IMPLICIT NONE 
    990991  ! first call 
    991992  LOGICAL, SAVE ::  first_call = .TRUE. 
    … …  
    10491050  SUBROUTINE getin_routing_parameters 
    10501051 
     1052  IMPLICIT NONE 
     1053 
    10511054  LOGICAL, SAVE ::  first_call = .TRUE. 
    10521055 
    … …  
    10661069 
    10671070  SUBROUTINE getin_hydrol_cwrr_parameters 
     1071 
     1072  IMPLICIT NONE 
    10681073 
    10691074  LOGICAL, SAVE ::  first_call = .TRUE. 
    … …  
    10941099 
    10951100  SUBROUTINE getin_co2_parameters 
     1101 
     1102  IMPLICIT NONE 
    10961103 
    10971104  LOGICAL, SAVE ::  first_call = .TRUE. 
    … …  
    11251132 
    11261133  SUBROUTINE getin_stomate_parameters 
     1134 
     1135    IMPLICIT NONE 
    11271136 
    11281137    LOGICAL, SAVE ::  first_call = .TRUE. 
    … …  
    13141323 SUBROUTINE getin_dgvm_parameters    
    13151324    
     1325   IMPLICIT NONE 
     1326 
    13161327    LOGICAL, SAVE ::  first_call = .TRUE. 
    13171328 
Note: See TracChangeset for help on using the changeset viewer.