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 |
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 |