Changeset 4588 for LMDZ6


Ignore:
Timestamp:
Jun 29, 2023, 12:54:46 AM (17 months ago)
Author:
fhourdin
Message:

Nouveaux noms et encapsulation module pour wake

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited
2 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/calwake.F90

    r4094 r4588  
    2929  USE indice_sol_mod, ONLY: is_oce
    3030  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
     31  USE lmdz_wake, ONLY : wake
    3132  IMPLICIT NONE
    3233  ! ======================================================================

  • LMDZ6/trunk/libf/phylmd/lmdz_wake.F90

    r4587 r4588  
     1MODULE lmdz_wake
    12
    23! $Id$
    34
     5CONTAINS
    46
    57SUBROUTINE wake(klon,klev,znatsurf, p, ph, pi, dtime, &
    … …  
    2527
    2628
    27   USE wake_ini_mod , ONLY : wake_ini
    28   USE wake_ini_mod , ONLY : prt_level,epsim1,RG,RD
    29   USE wake_ini_mod , ONLY : stark, wdens_ref, coefgw, alpk, wk_pupper
    30   USE wake_ini_mod , ONLY : crep_upper, crep_sol, tau_cv, rzero, aa0, flag_wk_check_trgl
    31   USE wake_ini_mod , ONLY : iflag_wk_act, iflag_wk_check_trgl, iflag_wk_pop_dyn, wdensmin
    32   USE wake_ini_mod , ONLY : sigmad, hwmin, wapecut, cstart, sigmaw_max, dens_rate, epsilon_loc
    33   USE wake_ini_mod , ONLY : iflag_wk_profile
     29  USE lmdz_wake_ini , ONLY : wake_ini
     30  USE lmdz_wake_ini , ONLY : prt_level,epsim1,RG,RD
     31  USE lmdz_wake_ini , ONLY : stark, wdens_ref, coefgw, alpk, wk_pupper
     32  USE lmdz_wake_ini , ONLY : crep_upper, crep_sol, tau_cv, rzero, aa0, flag_wk_check_trgl
     33  USE lmdz_wake_ini , ONLY : iflag_wk_act, iflag_wk_check_trgl, iflag_wk_pop_dyn, wdensmin
     34  USE lmdz_wake_ini , ONLY : sigmad, hwmin, wapecut, cstart, sigmaw_max, dens_rate, epsilon_loc
     35  USE lmdz_wake_ini , ONLY : iflag_wk_profile
    3436
    3537
    … …  
    23132315SUBROUTINE pkupper (klon, klev, ptop, ph, pupper, kupper)
    23142316
    2315 USE wake_ini_mod , ONLY : wk_pupper
     2317USE lmdz_wake_ini , ONLY : wk_pupper
    23162318IMPLICIT NONE
    23172319
    … …  
    23752377               
    23762378
    2377   USE wake_ini_mod , ONLY : wake_ini
    2378   USE wake_ini_mod , ONLY : prt_level,RG
    2379   USE wake_ini_mod , ONLY : stark, wdens_ref
    2380   USE wake_ini_mod , ONLY : tau_cv, rzero, aa0
    2381   USE wake_ini_mod , ONLY : iflag_wk_pop_dyn, wdensmin
    2382   USE wake_ini_mod , ONLY : sigmad, cstart, sigmaw_max
     2379  USE lmdz_wake_ini , ONLY : wake_ini
     2380  USE lmdz_wake_ini , ONLY : prt_level,RG
     2381  USE lmdz_wake_ini , ONLY : stark, wdens_ref
     2382  USE lmdz_wake_ini , ONLY : tau_cv, rzero, aa0
     2383  USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn, wdensmin
     2384  USE lmdz_wake_ini , ONLY : sigmad, cstart, sigmaw_max
    23832385 
    23842386IMPLICIT NONE
    … …  
    25362538                                             
    25372539
    2538   USE wake_ini_mod , ONLY : wake_ini
    2539   USE wake_ini_mod , ONLY : prt_level,RG
    2540   USE wake_ini_mod , ONLY : stark, wdens_ref
    2541   USE wake_ini_mod , ONLY : tau_cv, rzero, aa0
    2542   USE wake_ini_mod , ONLY : iflag_wk_pop_dyn, wdensmin
    2543   USE wake_ini_mod , ONLY : sigmad, cstart, sigmaw_max
     2540  USE lmdz_wake_ini , ONLY : wake_ini
     2541  USE lmdz_wake_ini , ONLY : prt_level,RG
     2542  USE lmdz_wake_ini , ONLY : stark, wdens_ref
     2543  USE lmdz_wake_ini , ONLY : tau_cv, rzero, aa0
     2544  USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn, wdensmin
     2545  USE lmdz_wake_ini , ONLY : sigmad, cstart, sigmaw_max
    25442546 
    25452547IMPLICIT NONE
    … …  
    26662668    END SUBROUTINE wake_popdyn_2 
    26672669 
     2670END MODULE lmdz_wake

  • LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.F90

    r4587 r4588  
    1 MODULE wake_ini_mod
     1MODULE lmdz_wake_ini
    22IMPLICIT NONE
    33
    … …  
    217217END SUBROUTINE wake_ini
    218218
    219 END MODULE wake_ini_mod
     219END MODULE lmdz_wake_ini

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r4575 r4588  
    8080#endif
    8181    USE lscp_mod, ONLY : lscp
    82     USE wake_ini_mod, ONLY : wake_ini
     82    USE lmdz_wake_ini, ONLY : wake_ini
    8383    USE yamada_ini_mod, ONLY : yamada_ini
    8484    USE atke_turbulence_ini_mod, ONLY : atke_ini
Note: See TracChangeset for help on using the changeset viewer.