Changeset 5298 for LMDZ6


Ignore:
Timestamp:
Oct 30, 2024, 2:26:24 PM (4 weeks ago)
Author:
abarral
Message:

Turn planete.h comsoil.h into module
Remove obsolete message related to /scratch/ common

Location:
LMDZ6/trunk/libf
Files:
9 edited
4 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/diverg.f90

    r5285 r5298  
    1919  !    div      est  un argument  de sortie pour le s-prog
    2020  !
    21   !
    22   !   ---------------------------------------------------------------------
    23   !
    24   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    25   !
    26   !   ---------------------------------------------------------------------
    2721
    2822

  • LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90

    r5285 r5298  
    2121  !
    2222  !
    23   !   ---------------------------------------------------------------------
    24   !
    25   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    26   !
    27   !   ---------------------------------------------------------------------
     23
    2824
    2925

  • LMDZ6/trunk/libf/dyn3d_common/divergf.f90

    r5285 r5298  
    2020  !
    2121  !
    22   !   ---------------------------------------------------------------------
    23   !
    24   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    25   !
    26   !   ---------------------------------------------------------------------
     22
    2723
    2824

  • LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90

    r5285 r5298  
    1919  !
    2020  !
    21   !   ---------------------------------------------------------------------
    22   !
    23   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    24   !
    25   !   ---------------------------------------------------------------------
     21
    2622
    2723

  • LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90

    r5285 r5298  
    1818  !
    1919  !
    20   !   ---------------------------------------------------------------------
    21   !
    22   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    23   !
    24   !   ---------------------------------------------------------------------
     20
    2521
    2622

  • LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90

    r5285 r5298  
    1919  !
    2020  !
    21   !   ---------------------------------------------------------------------
    22   !
    23   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    24   !
    25   !   ---------------------------------------------------------------------
     21
    2622
    2723

  • LMDZ6/trunk/libf/phylmd/comsoil_mod_h.f90

    r5297 r5298  
    1 !
    2 ! $Header$
    3 !
     1! Replaces comsoil.h
    42
    5       common /comsoil/inertie_sol,inertie_sno,inertie_sic,inertie_lic,  &
    6      &                iflag_sic,iflag_inertie
    7       real inertie_sol,inertie_sno,inertie_sic,inertie_lic
    8       integer iflag_sic,iflag_inertie
    9 !$OMP THREADPRIVATE(/comsoil/)
     3MODULE comsoil_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie
     6
     7  REAL inertie_sol, inertie_sno, inertie_sic, inertie_lic
     8  INTEGER iflag_sic, iflag_inertie
     9  !$OMP THREADPRIVATE(inertie_sol,inertie_sno,inertie_sic,inertie_lic, iflag_sic,iflag_inertie)
     10END MODULE comsoil_mod_h

  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r5296 r5298  
    2424       alp_offset)
    2525
    26 USE compbl_mod_h
     26    USE compbl_mod_h
    2727    USE alpale_mod
    2828    USE conema3_mod_h
    29         USE yomcst_mod_h
    30 USE IOIPSL
     29    USE yomcst_mod_h
     30    USE IOIPSL
    3131    USE surface_data
    3232    USE phys_cal_mod
    … …  
    4141    USE infotrac_phy, ONLY: type_trac
    4242    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
     43    USE comsoil_mod_h
    4344
    4445    INCLUDE "nuage.h"
    … …  
    4647    INCLUDE "YOMCST2.h"
    4748
    48     !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
    49     INCLUDE "comsoil.h"
    5049    INCLUDE "YOEGWD.h"
    5150    !

  • LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90

    r5285 r5298  
    5858  ! |________________________________________________________________________|
    5959
    60 USE yoethf_mod_h
    61     USE VAR_SV
     60  USE yoethf_mod_h
     61  USE VAR_SV
    6262  USE VARdSV
    63 
    6463  USE VARySV
    6564  USE VARtSV
    … …  
    6766  USE VARphy
    6867  USE indice_sol_mod
    69 
    70 
    7168  USE yomcst_mod_h
     69  USE comsoil_mod_h
    7270IMPLICIT NONE
    7371
    … …  
    7573  ! +--Global Variables
    7674  ! +  ================
    77 
    78 
    7975  INCLUDE "FCTTRE.h"
    80    ! INCLUDE "indicesol.h"
    81   INCLUDE "comsoil.h"
    82    ! include  "LMDZphy.inc"
    8376
    8477  ! +--OUTPUT for Stand Alone NetCDF File

  • LMDZ6/trunk/libf/phylmd/planete_mod_h.f90

    r5297 r5298  
    1 !-----------------------------------------------------------------------
    2 ! INCLUDE planet.h
     1MODULE planete_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr
    34
    4       COMMON/planet/aphelie,periheli,year_day,peri_day, obliquit, timeperi,&
    5            e_elips,p_elips,unitastr
     5  REAL aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, &
     6          p_elips, unitastr
    67
    7       REAL aphelie,periheli,year_day,peri_day, obliquit, timeperi,e_elips, &
    8            p_elips,unitastr
    9 
    10 !-----------------------------------------------------------------------
    11 !$OMP THREADPRIVATE(/planet/)
     8  !$OMP THREADPRIVATE(aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr)
     9END MODULE planete_mod_h

  • LMDZ6/trunk/libf/phylmd/soil.f90

    r5285 r5298  
    1111  USE print_control_mod, ONLY: lunout
    1212  USE dimsoil_mod_h, ONLY: nsoilmx
    13 
     13  USE comsoil_mod_h
    1414  IMPLICIT NONE
    1515
    … …  
    6262!
    6363!=======================================================================
    64   INCLUDE "comsoil.h"
    65 !-----------------------------------------------------------------------
    6664! Arguments
    6765! ---------

  • LMDZ6/trunk/libf/phylmdiso/comsoil_mod_h.f90

    r5297 r5298  
    1 link ../phylmd/comsoil.h
     1link ../phylmd/comsoil_mod_h.f90

  • LMDZ6/trunk/libf/phylmdiso/planete_mod_h.f90

    r5297 r5298  
    1 link ../phylmd/planete.h
     1link ../phylmd/planete_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.