Changeset 4664 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.F90

Timestamp:

Sep 2, 2023, 10:52:57 AM (13 months ago)

Author:

fhourdin

Message:

standardisatio des noms pour lscp et fisrtilp

fisrtilp passe dans le module lmdz_lscp_old.F90
Prepartation de la replaysation de fisrtilp (deja fait pour lscp)

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.F90

@@ -6 +6 @@
 
    integer :: dvdq=1,dqimpl=-1,prt_level=0,lunout
-   real RG,RD,RCPD,RKAPPA,RLVTT,RLvCp,RETV
-   real           :: r_aspect_thermals,tau_thermals,fact_thermals_ed_dz
-   integer        :: iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure
-   integer        :: iflag_thermals_down
-   real           :: fact_thermals_down
+   real    :: RG,RD,RCPD,RKAPPA,RLVTT,RLvCp,RETV
+   real    :: r_aspect_thermals,tau_thermals,fact_thermals_ed_dz
+   integer :: iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure
+   integer :: iflag_thermals_down
+   real    :: fact_thermals_down
 
 !$OMP THREADPRIVATE(dvdq,dqimpl,prt_level,lunout)
@@ -109 +109 @@
 
 
+
+write(lunout,*) 'thermcell_ini ,prt_level                =',  prt_level                   
+write(lunout,*) 'thermcell_ini ,RG                       =',  RG                      
+write(lunout,*) 'thermcell_ini ,RD                       =',  RD                       
+write(lunout,*) 'thermcell_ini ,RCPD                     =',  RCPD                    
+write(lunout,*) 'thermcell_ini ,RKAPPA                   =',  RKAPPA                  
+write(lunout,*) 'thermcell_ini ,RLVTT                    =',  RLVTT                   
+write(lunout,*) 'thermcell_ini ,RLvCp                    =',  RLvCp                   
+write(lunout,*) 'thermcell_ini ,RETV                     =',  RETV                    
+write(lunout,*) 'thermcell_ini ,tau_thermals             =',  tau_thermals            
+write(lunout,*) 'thermcell_ini ,lunout                   =',  lunout                  
+write(lunout,*) 'thermcell_ini ,r_aspect_thermals        =',  r_aspect_thermals       
+write(lunout,*) 'thermcell_ini ,tau_thermals             =',  tau_thermals            
+write(lunout,*) 'thermcell_ini ,fact_thermals_ed_dz      =',  fact_thermals_ed_dz
+write(lunout,*) 'thermcell_ini ,fact_thermals_ed_dz      =',  fact_thermals_ed_dz
+write(lunout,*) 'thermcell_ini ,iflag_thermals_ed        =',  iflag_thermals_ed       
+write(lunout,*) 'thermcell_ini ,iflag_thermals_optflux   =',  iflag_thermals_optflux
+write(lunout,*) 'thermcell_ini ,iflag_thermals_closure   =',  iflag_thermals_closure
+write(lunout,*) 'thermcell_ini ,iflag_thermals_down      =',  iflag_thermals_down
+write(lunout,*) 'thermcell_ini ,fact_thermals_down       =',  fact_thermals_down
+write(lunout,*) 'thermcell_ini ,fact_epsilon             =',  fact_epsilon            
+write(lunout,*) 'thermcell_ini ,betalpha                 =',  betalpha                
+write(lunout,*) 'thermcell_ini ,afact                    =',  afact                   
+write(lunout,*) 'thermcell_ini ,fact_shell               =',  fact_shell              
+write(lunout,*) 'thermcell_ini ,detr_min                 =',  detr_min                
+write(lunout,*) 'thermcell_ini ,entr_min                 =',  entr_min                
+write(lunout,*) 'thermcell_ini ,detr_q_coef              =',  detr_q_coef             
+write(lunout,*) 'thermcell_ini ,detr_q_power             =',  detr_q_power            
+write(lunout,*) 'thermcell_ini ,mix0                     =',  mix0                    
+write(lunout,*) 'thermcell_ini ,thermals_flag_alim       =',  thermals_flag_alim
+
  RETURN