Ignore:
Timestamp:
Jul 24, 2024, 2:54:37 PM (2 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_ini.F90

    r5112 r5116  
    5656
    5757PRINT*,'thermcell_ini'
    58       if (iflag_thermals==15.or.iflag_thermals==16) then
     58      if (iflag_thermals==15.or.iflag_thermals==16) THEN
    5959         dvdq=0
    6060         dqimpl=-1
    … …  
    101101
    102102
    103 write(lunout,*) 'thermcell_ini ,prt_level                =',  prt_level                   
    104 write(lunout,*) 'thermcell_ini ,RG                       =',  RG                     
    105 write(lunout,*) 'thermcell_ini ,RD                       =',  RD                       
    106 write(lunout,*) 'thermcell_ini ,RCPD                     =',  RCPD                   
    107 write(lunout,*) 'thermcell_ini ,RKAPPA                   =',  RKAPPA                 
    108 write(lunout,*) 'thermcell_ini ,RLVTT                    =',  RLVTT                   
    109 write(lunout,*) 'thermcell_ini ,RLvCp                    =',  RLvCp                   
    110 write(lunout,*) 'thermcell_ini ,RETV                     =',  RETV                   
    111 write(lunout,*) 'thermcell_ini ,tau_thermals             =',  tau_thermals           
    112 write(lunout,*) 'thermcell_ini ,lunout                   =',  lunout                 
    113 write(lunout,*) 'thermcell_ini ,r_aspect_thermals        =',  r_aspect_thermals       
    114 write(lunout,*) 'thermcell_ini ,tau_thermals             =',  tau_thermals           
    115 write(lunout,*) 'thermcell_ini ,fact_thermals_ed_dz      =',  fact_thermals_ed_dz
    116 write(lunout,*) 'thermcell_ini ,fact_thermals_ed_dz      =',  fact_thermals_ed_dz
    117 write(lunout,*) 'thermcell_ini ,iflag_thermals_ed        =',  iflag_thermals_ed       
    118 write(lunout,*) 'thermcell_ini ,iflag_thermals_optflux   =',  iflag_thermals_optflux
    119 write(lunout,*) 'thermcell_ini ,iflag_thermals_closure   =',  iflag_thermals_closure
    120 write(lunout,*) 'thermcell_ini ,iflag_thermals_down      =',  iflag_thermals_down
    121 write(lunout,*) 'thermcell_ini ,fact_thermals_down       =',  fact_thermals_down
    122 write(lunout,*) 'thermcell_ini ,fact_epsilon             =',  fact_epsilon           
    123 write(lunout,*) 'thermcell_ini ,betalpha                 =',  betalpha               
    124 write(lunout,*) 'thermcell_ini ,afact                    =',  afact                   
    125 write(lunout,*) 'thermcell_ini ,fact_shell               =',  fact_shell             
    126 write(lunout,*) 'thermcell_ini ,detr_min                 =',  detr_min               
    127 write(lunout,*) 'thermcell_ini ,entr_min                 =',  entr_min               
    128 write(lunout,*) 'thermcell_ini ,detr_q_coef              =',  detr_q_coef             
    129 write(lunout,*) 'thermcell_ini ,detr_q_power             =',  detr_q_power           
    130 write(lunout,*) 'thermcell_ini ,mix0                     =',  mix0                   
    131 write(lunout,*) 'thermcell_ini ,thermals_flag_alim       =',  thermals_flag_alim
    132 write(lunout,*) 'thermcell_ini ,iflag_thermals_tenv      =',  iflag_thermals_tenv
     103WRITE(lunout,*) 'thermcell_ini ,prt_level                =',  prt_level
     104WRITE(lunout,*) 'thermcell_ini ,RG                       =',  RG
     105WRITE(lunout,*) 'thermcell_ini ,RD                       =',  RD
     106WRITE(lunout,*) 'thermcell_ini ,RCPD                     =',  RCPD
     107WRITE(lunout,*) 'thermcell_ini ,RKAPPA                   =',  RKAPPA
     108WRITE(lunout,*) 'thermcell_ini ,RLVTT                    =',  RLVTT
     109WRITE(lunout,*) 'thermcell_ini ,RLvCp                    =',  RLvCp
     110WRITE(lunout,*) 'thermcell_ini ,RETV                     =',  RETV
     111WRITE(lunout,*) 'thermcell_ini ,tau_thermals             =',  tau_thermals
     112WRITE(lunout,*) 'thermcell_ini ,lunout                   =',  lunout
     113WRITE(lunout,*) 'thermcell_ini ,r_aspect_thermals        =',  r_aspect_thermals
     114WRITE(lunout,*) 'thermcell_ini ,tau_thermals             =',  tau_thermals
     115WRITE(lunout,*) 'thermcell_ini ,fact_thermals_ed_dz      =',  fact_thermals_ed_dz
     116WRITE(lunout,*) 'thermcell_ini ,fact_thermals_ed_dz      =',  fact_thermals_ed_dz
     117WRITE(lunout,*) 'thermcell_ini ,iflag_thermals_ed        =',  iflag_thermals_ed
     118WRITE(lunout,*) 'thermcell_ini ,iflag_thermals_optflux   =',  iflag_thermals_optflux
     119WRITE(lunout,*) 'thermcell_ini ,iflag_thermals_closure   =',  iflag_thermals_closure
     120WRITE(lunout,*) 'thermcell_ini ,iflag_thermals_down      =',  iflag_thermals_down
     121WRITE(lunout,*) 'thermcell_ini ,fact_thermals_down       =',  fact_thermals_down
     122WRITE(lunout,*) 'thermcell_ini ,fact_epsilon             =',  fact_epsilon
     123WRITE(lunout,*) 'thermcell_ini ,betalpha                 =',  betalpha
     124WRITE(lunout,*) 'thermcell_ini ,afact                    =',  afact
     125WRITE(lunout,*) 'thermcell_ini ,fact_shell               =',  fact_shell
     126WRITE(lunout,*) 'thermcell_ini ,detr_min                 =',  detr_min
     127WRITE(lunout,*) 'thermcell_ini ,entr_min                 =',  entr_min
     128WRITE(lunout,*) 'thermcell_ini ,detr_q_coef              =',  detr_q_coef
     129WRITE(lunout,*) 'thermcell_ini ,detr_q_power             =',  detr_q_power
     130WRITE(lunout,*) 'thermcell_ini ,mix0                     =',  mix0
     131WRITE(lunout,*) 'thermcell_ini ,thermals_flag_alim       =',  thermals_flag_alim
     132WRITE(lunout,*) 'thermcell_ini ,iflag_thermals_tenv      =',  iflag_thermals_tenv
    133133
    134134
Note: See TracChangeset for help on using the changeset viewer.