Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/cv_driver.F90
- Timestamp:
- Nov 21, 2019, 4:43:45 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/phylmd/cv_driver.F90
r3409 r3605 568 568 ,cape,ep,hp,icb,inb,clw,nk,t,h,lv & 569 569 ,epmax_diag) 570 ! on écrase ep et recalcule hp570 ! on écrase ep et recalcule hp 571 571 END IF 572 572 … … 681 681 ! ================================================================== 682 682 SUBROUTINE cv_flag(iflag_ice_thermo) 683 684 USE ioipsl_getin_p_mod, ONLY : getin_p 685 683 686 IMPLICIT NONE 684 687 … … 693 696 cvflag_grav = .TRUE. 694 697 cvflag_ice = iflag_ice_thermo >= 1 698 ! 699 ! si icvflag_Tpa=0, alors la fraction de glace dans l'ascendance adiabatique est 700 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 701 ! calculee en deux itérations, une en supposant qu'il n'y a pas de glace et l'autre 702 ! en ajoutant la glace (ancien schéma d'Arnaud Jam). 703 ! si icvflag_Tpa=1, alors la fraction de glace dans l'ascendance adiabatique est 704 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 705 ! calculee en une seule iteration. 706 ! si icvflag_Tpa=2, alors la fraction de glace dans l'ascendance adiabatique est 707 ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 708 ! calculee en une seule iteration. 709 icvflag_Tpa=0 710 call getin_p('icvflag_Tpa', icvflag_Tpa) 695 711 696 712 RETURN
Note: See TracChangeset
for help on using the changeset viewer.