Changeset 1026


Ignore:
Timestamp:
05/18/20 14:08:19 (4 years ago)
Author:
dubos
Message:

devel : towards conformity to F2008 standard

Location:
codes/icosagcm/devel/src
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dcmip/dcmip2016_kessler_physic.f90

    r824 r1026  
    7474  !------------------------------------------------ 
    7575 
     76  INTEGER, INTENT(IN) :: nz ! Number of thermodynamic levels in the column 
     77 
    7678  REAL(8), DIMENSION(nz), INTENT(INOUT) :: & 
    7779            theta   ,     & ! Potential temperature (K) 
    … …  
    9294  REAL(8), INTENT(IN) :: &  
    9395            dt              ! Time step (s) 
    94  
    95   INTEGER, INTENT(IN) :: nz ! Number of thermodynamic levels in the column 
    9696 
    9797  !------------------------------------------------ 

  • codes/icosagcm/devel/src/dissip/nudging_mod.f90

    r989 r1026  
    1515       nudging_relaxation_time_in,nudging_relaxation_time_out 
    1616  !$OMP THREADPRIVATE(center_lon, center_lat, nudging_radius, nudging_relaxation_time,nudging_relaxation_time_in,nudging_relaxation_time_out) 
     17 
    1718  TYPE(t_field),POINTER :: f_relax_coef_e(:), f_target_ue(:), & 
    1819       f_relax_coef_i(:), f_target_theta_rhodz(:),f_target_ps(:) 
    19   CHARACTER(LEN=255),SAVE :: guided_nudging_field 
    20   INTEGER,SAVE :: nudging_time 
     20  CHARACTER(LEN=255) :: guided_nudging_field 
     21  INTEGER :: nudging_time 
    2122 
    2223  PUBLIC :: init_guided, guided 

  • codes/icosagcm/devel/src/dynamics/compute_NH_geopot.F90

    r980 r1026  
    228228    tau2_g=tau*tau/g 
    229229    g2=g*g 
    230     gm2 = g**-2 
     230    gm2 = g**(-2) 
    231231    gamma = 1./(1.-kappa) 
    232232     

  • codes/icosagcm/devel/src/initial/etat0_heldsz.f90

    r609 r1026  
    88  TYPE(t_field),POINTER :: f_theta(:) 
    99 
    10   REAL(rstd),ALLOCATABLE,SAVE :: knewt_t(:),kfrict(:) 
     10  REAL(rstd),ALLOCATABLE :: knewt_t(:),kfrict(:) 
    1111!$OMP THREADPRIVATE(knewt_t,kfrict) 
    12   LOGICAL, SAVE :: done=.FALSE. 
     12  LOGICAL :: done=.FALSE. 
    1313!$OMP THREADPRIVATE(done) 
    1414 
    15   REAL(rstd),SAVE :: p0,teta0,ttp,delt_y,delt_z,eps 
     15  REAL(rstd) :: p0,teta0,ttp,delt_y,delt_z,eps 
    1616!$OMP THREADPRIVATE(p0,teta0,ttp,delt_y,delt_z,eps) 
    1717 
    18   REAL(rstd),SAVE :: knewt_g, k_f,k_c_a,k_c_s 
     18  REAL(rstd) :: knewt_g, k_f,k_c_a,k_c_s 
    1919!$OMP THREADPRIVATE(knewt_g, k_f,k_c_a,k_c_s) 
    2020 

  • codes/icosagcm/devel/src/output/output_field.f90

    r883 r1026  
    77  PRIVATE 
    88 
    9   LOGICAL,SAVE :: xios_output  
     9  LOGICAL :: xios_output  
    1010!$OMP THREADPRIVATE(xios_output)      
    11   LOGICAL,SAVE :: enable_io     
     11  LOGICAL :: enable_io     
    1212!$OMP THREADPRIVATE(enable_io)      
    1313 

  • codes/icosagcm/devel/src/output/xios_mod.F90

    r992 r1026  
    2525#ifdef CPP_USING_XIOS 
    2626 
    27   PUBLIC :: xios_timestep,    &  
     27  PUBLIC :: xios_timestep,    & 
    2828       xios_set_file_attr, xios_set_fieldgroup_attr, & 
    2929       xios_set_filegroup_attr, xios_get_axis_attr, & 
    3030       xios_send_field, xios_read_var, & 
    31        xios_update_calendar, xios_set_context, xios_set_context_input 
     31       xios_update_calendar, xios_set_context, xios_set_context_input, & 
     32       OPERATOR(+), OPERATOR(-), OPERATOR(*) 
    3233   
    3334CONTAINS 

  • codes/icosagcm/devel/src/parallel/transfert_mpi.f90

    r868 r1026  
    21592159    IMPLICIT NONE 
    21602160     
     2161    INTEGER,INTENT(IN) :: nb 
    21612162    INTEGER,DIMENSION(nb),INTENT(INOUT) :: Var 
    2162     INTEGER,INTENT(IN) :: nb 
    21632163 
    21642164    IF (.NOT. using_mpi) RETURN 
    … …  
    21762176    IMPLICIT NONE 
    21772177     
     2178    INTEGER,INTENT(IN) :: nb 
    21782179    REAL,DIMENSION(nb),INTENT(INOUT) :: Var 
    2179     INTEGER,INTENT(IN) :: nb 
    21802180 
    21812181    IF (.NOT. using_mpi) RETURN 
    … …  
    21932193    IMPLICIT NONE 
    21942194     
     2195    INTEGER,INTENT(IN) :: nb 
    21952196    LOGICAL,DIMENSION(nb),INTENT(INOUT) :: Var 
    2196     INTEGER,INTENT(IN) :: nb 
    21972197 
    21982198    IF (.NOT. using_mpi) RETURN 

  • codes/icosagcm/devel/src/parallel/transfert_omp.f90

    r533 r1026  
    804804  SUBROUTINE bcast_omp_cgen(Var,Nb,Buff) 
    805805  IMPLICIT NONE 
    806      
     806    INTEGER,INTENT(IN) :: Nb 
    807807    CHARACTER(LEN=*),INTENT(INOUT) :: Var 
    808808    CHARACTER(LEN=*),INTENT(INOUT) :: Buff 
    809     INTEGER,INTENT(IN) :: Nb 
    810809     
    811810    INTEGER :: i 
    … …  
    824823 
    825824 
    826        
     825 
    827826  SUBROUTINE bcast_omp_igen(Var,Nb,Buff) 
    828827  IMPLICIT NONE 
    829      
     828    INTEGER,INTENT(IN) :: Nb 
    830829    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Var 
    831830    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Buff 
    832     INTEGER,INTENT(IN) :: Nb 
    833831 
    834832    INTEGER :: i 
    … …  
    851849  SUBROUTINE bcast_omp_rgen(Var,Nb,Buff) 
    852850  IMPLICIT NONE 
    853      
     851    INTEGER,INTENT(IN) :: Nb 
    854852    REAL,DIMENSION(Nb),INTENT(INOUT) :: Var 
    855853    REAL,DIMENSION(Nb),INTENT(INOUT) :: Buff 
    856     INTEGER,INTENT(IN) :: Nb 
    857854 
    858855    INTEGER :: i 
    … …  
    874871  SUBROUTINE bcast_omp_lgen(Var,Nb,Buff) 
    875872  IMPLICIT NONE 
    876      
     873    INTEGER,INTENT(IN) :: Nb 
    877874    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Var 
    878875    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Buff 
    879     INTEGER,INTENT(IN) :: Nb 
    880876   
    881877    INTEGER :: i 

  • codes/icosagcm/devel/src/physics/physics.f90

    r1011 r1026  
    106106!$OMP END PARALLEL 
    107107 
    108     IF(done==.FALSE.) THEN 
     108    IF(.NOT. done) THEN 
    109109       SELECT CASE(phys_type) 
    110110       CASE(phys_external)  

  • codes/icosagcm/devel/src/sphere/compute_geometry.f90

    r993 r1026  
    99  USE transfert_mod, ONLY : req_i0, req_i1, t_message, transfert_request, transfert_message, init_message 
    1010 
    11   USE spherical_geom_mod, ONLY : xyz2lonlat, circumcenter, & 
    12        compute_centroid, centroid, & 
    13        surf_triangle, dist_cart, div_arc_bis, & 
    14        schmidt_transform 
     11  USE spherical_geom_mod, ONLY : xyz2lonlat, circumcenter, compute_centroid, & 
     12       surf_triangle, dist_cart, div_arc_bis, schmidt_transform 
    1513  USE vector, ONLY : norm, cross_product2 
    1614 

  • codes/icosagcm/devel/src/time/hevi_scheme.f90

    r951 r1026  
    3737    ! Euler scheme disguised as ARK for development purposes 
    3838    REAL(rstd) :: dt 
    39     CALL set_coefs_rk(dt, (/ zero, (/1.,0.,0./), (/0.,0.,0./), (/0./0.,0./0.,0./) /) ) 
     39    CALL set_coefs_rk(dt, (/ zero, (/1.,0.,0./), (/0.,0.,0./), (/0.,0.,0./) /) ) 
    4040  END SUBROUTINE set_coefs_ark11 
    4141     
Note: See TracChangeset for help on using the changeset viewer.