Ignore:
Timestamp:
Jul 26, 2024, 5:56:37 PM (7 months ago)
Author:
abarral
Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

Location:
LMDZ6/branches/Amaury_dev/libf/phylmdiso
Files:
2 deleted
7 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

    r5117 r5134  
    160160#endif 
    161161#endif
    162 IMPLICIT none
     162IMPLICIT NONE
    163163  include "YOMCST.h"
    164164  include "clesphys.h"
    … …  
    684684USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    685685              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    686 IMPLICIT none
     686IMPLICIT NONE
    687687  include "YOMCST.h"
    688688  include "clesphys.h"
    … …  
    834834                    zh_qw_col, zh_ql_col, zh_qs_col, zh_qbs_col, zh_col)
    835835
    836 IMPLICIT none
     836IMPLICIT NONE
    837837  include "YOMCST.h"
    838838
    … …  
    915915      , rain_lsc, snow_lsc
    916916USE climb_hq_mod, ONLY: d_h_col_vdf, f_h_bnd
    917 IMPLICIT none
     917IMPLICIT NONE
    918918include "YOMCST.h"
    919919

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_wake_tend.F90

    r5116 r5134  
    2121    USE phys_state_var_mod, ONLY:  wake_deltaxt   
    2222#endif
    23 IMPLICIT none
     23IMPLICIT NONE
    2424
    2525! Arguments :

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_alpale.f90

    r5133 r5134  
    1 link ../phylmd/alpale.F90
     1link ../phylmd/lmdz_alpale.f90

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_lscp_old.F90

    r5132 r5134  
    6868#endif
    6969
    70   IMPLICIT none
     70  IMPLICIT NONE
    7171  !======================================================================
    7272  ! Auteur(s): Z.X. Li (LMD/CNRS)

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

    r5132 r5134  
    5151  USE netcdf, ONLY: missing_val_netcdf => nf90_fill_real
    5252  USE config_ocean_skin_m, ONLY: activate_ocean_skin
     53  USE lmdz_alpale
    5354#ifdef ISO
    5455  USE infotrac_phy, ONLY: niso
    … …  
    6061#endif
    6162
    62   IMPLICIT none
     63  IMPLICIT NONE
    6364  !======================================================================
    6465  ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    6768  include "dimsoil.h"
    6869  include "clesphys.h"
    69   include "alpale.h"
    7070  include "compbl.h"
    7171  include "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

    r5132 r5134  
    5252  USE config_ocean_skin_m, ONLY: activate_ocean_skin
    5353  USE lmdz_abort_physic, ONLY: abort_physic
    54 
    55   IMPLICIT none
     54  USE lmdz_alpale
     55
     56  IMPLICIT NONE
    5657
    5758  include "dimsoil.h"
    5859  include "clesphys.h"
    59   include "alpale.h"
    6060  include "compbl.h"
    6161  !======================================================================
    … …  
    509509#endif
    510510      !USE phyredem, ONLY: put_field_srf1
     511      USE lmdz_alpale
    511512
    512513        IMPLICIT NONE
    … …  
    516517 include "dimsoil.h"
    517518 include "clesphys.h"
    518  include "alpale.h"
    519519 include "compbl.h"
    520520      ! inputs

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5133 r5134  
    418418       USE output_physiqex_mod, ONLY: output_physiqex
    419419       USE lmdz_simu_airs, ONLY: simu_airs
     420       USE lmdz_alpale
    420421
    421422
    … …  
    474475    include "dimsoil.h"
    475476    include "clesphys.h"
    476     include "alpale.h"
    477477    include "dimpft.h"
    478478    !======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/reevap.F90

    r5117 r5134  
    1515#endif
    1616#endif
    17     IMPLICIT none
     17    IMPLICIT NONE
    1818    !>======================================================================
    1919
Note: See TracChangeset for help on using the changeset viewer.