/[lmdze]/trunk/phylmd/fisrtilp.f
ViewVC logotype

Diff of /trunk/phylmd/fisrtilp.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 107 by guez, Fri Aug 29 13:00:05 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 113  contains Line 113  contains
113      ! Pour la conversion eau-neige      ! Pour la conversion eau-neige
114      REAL zlh_solid(klon), zm_solid      REAL zlh_solid(klon), zm_solid
115    
     ! Fonctions en ligne:  
   
     REAL fallvs, fallvc ! vitesse de chute pour crystaux de glace  
     REAL zzz  
   
     fallvc(zzz) = 3.29/2.0*((zzz)**0.16)*ffallv_con  
     fallvs(zzz) = 3.29/2.0*((zzz)**0.16)*ffallv_lsc  
   
116      !---------------------------------------------------------------      !---------------------------------------------------------------
117    
118      zdelq = 0.0      zdelq = 0.0
# Line 491  contains Line 483  contains
483         END DO         END DO
484      END DO      END DO
485    
486      contains
487    
488        ! vitesse de chute pour crystaux de glace
489    
490        REAL function fallvs(zzz)
491          REAL zzz
492          fallvs = 3.29/2.0*((zzz)**0.16)*ffallv_lsc
493        end function fallvs
494    
495        real function fallvc(zzz)
496          REAL zzz
497          fallvc = 3.29/2.0*((zzz)**0.16)*ffallv_con
498        end function fallvc
499    
500    END SUBROUTINE fisrtilp    END SUBROUTINE fisrtilp
501    
502  end module fisrtilp_m  end module fisrtilp_m
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21