Changeset 1034


Ignore:
Timestamp:
08/05/20 12:06:17 (4 years ago)
Author:
dubos
Message:

devel : work around PGI compiler complaints (bugs ?)

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

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/base/init_grid_param.f90

    r958 r1034  
    11MODULE init_grid_param_mod 
    2  
    3   USE compute_diagnostics_mod 
    4   USE compute_rhodz_mod 
    5   USE compute_pression_mod 
    6   USE compute_temperature_mod 
    7   USE vertical_interp_mod 
    8  
    9   USE compute_caldyn_mod 
    10   USE compute_pvort_only_mod 
    11   USE compute_theta_mod 
    12   USE compute_geopot_mod 
    13   USE compute_caldyn_fast_mod 
    14   USE compute_caldyn_slow_hydro_mod 
    15   USE compute_caldyn_coriolis_mod 
    162 
    173  IMPLICIT NONE 
    … …  
    6652 
    6753  SUBROUTINE select_compute_hex 
     54    USE compute_diagnostics_mod 
     55    USE compute_rhodz_mod 
     56    USE compute_pression_mod 
     57    USE compute_temperature_mod 
     58    USE vertical_interp_mod 
     59     
     60    USE compute_caldyn_mod 
     61    USE compute_pvort_only_mod 
     62    USE compute_theta_mod 
     63    USE compute_geopot_mod 
     64    USE compute_caldyn_fast_mod 
     65    USE compute_caldyn_slow_hydro_mod 
     66    USE compute_caldyn_coriolis_mod 
     67 
    6868    ! diagnostics 
    6969    compute_rhodz        => compute_rhodz_hex 
    … …  
    8383 
    8484  SUBROUTINE select_compute_unst 
     85    USE compute_diagnostics_mod 
     86    USE compute_rhodz_mod 
     87    USE compute_pression_mod 
     88    USE compute_temperature_mod 
     89    USE vertical_interp_mod 
     90     
     91    USE compute_caldyn_mod 
     92    USE compute_pvort_only_mod 
     93    USE compute_theta_mod 
     94    USE compute_geopot_mod 
     95    USE compute_caldyn_fast_mod 
     96    USE compute_caldyn_slow_hydro_mod 
     97    USE compute_caldyn_coriolis_mod 
     98     
    8599    ! diagnostics 
    86100    compute_rhodz        => compute_rhodz_unst 

  • codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90

    r1027 r1034  
    22  USE icosa 
    33  IMPLICIT NONE 
    4   SAVE 
    54  PRIVATE 
    65 
    … …  
    4645  END INTERFACE 
    4746 
    48   PROCEDURE(comp_rhodz),       POINTER :: compute_rhodz   => NULL() 
    49   PROCEDURE(comp_pression),    POINTER :: compute_pression => NULL(), compute_pression_mid => NULL() 
    50   PROCEDURE(comp_temperature), POINTER :: compute_temperature => NULL() 
    51   PROCEDURE(comp_hydro_press), POINTER :: compute_hydrostatic_pressure => NULL() 
    52   PROCEDURE(comp_vert_interp), POINTER :: compute_vertical_interp => NULL() 
     47  PROCEDURE(comp_rhodz),       POINTER, SAVE :: compute_rhodz   => NULL() 
     48  PROCEDURE(comp_pression),    POINTER, SAVE :: compute_pression => NULL(), compute_pression_mid => NULL() 
     49  PROCEDURE(comp_temperature), POINTER, SAVE :: compute_temperature => NULL() 
     50  PROCEDURE(comp_hydro_press), POINTER, SAVE :: compute_hydrostatic_pressure => NULL() 
     51  PROCEDURE(comp_vert_interp), POINTER, SAVE :: compute_vertical_interp => NULL() 
    5352 
    5453  PUBLIC :: compute_rhodz, compute_pression, compute_pression_mid, compute_temperature, compute_hydrostatic_pressure, & 

  • codes/icosagcm/devel/src/dynamics/compute_caldyn.f90

    r1027 r1034  
    22  USE prec, ONLY : rstd 
    33  IMPLICIT NONE 
    4   SAVE 
    54   
    65  ! fake array dimensions, for interfaces 
    … …  
    7170  END INTERFACE 
    7271 
    73   PROCEDURE(comp_pvort_only),        POINTER :: compute_pvort_only        => NULL() 
    74   PROCEDURE(comp_theta),             POINTER :: compute_theta             => NULL() 
    75   PROCEDURE(comp_geopot),            POINTER :: compute_geopot            => NULL() 
    76   PROCEDURE(comp_caldyn_fast),       POINTER :: compute_caldyn_fast       => NULL() 
    77   PROCEDURE(comp_caldyn_slow_hydro), POINTER :: compute_caldyn_slow_hydro => NULL() 
    78   PROCEDURE(comp_caldyn_coriolis),   POINTER :: compute_caldyn_coriolis   => NULL() 
     72  PROCEDURE(comp_pvort_only),        POINTER, SAVE :: compute_pvort_only        => NULL() 
     73  PROCEDURE(comp_theta),             POINTER, SAVE :: compute_theta             => NULL() 
     74  PROCEDURE(comp_geopot),            POINTER, SAVE :: compute_geopot            => NULL() 
     75  PROCEDURE(comp_caldyn_fast),       POINTER, SAVE :: compute_caldyn_fast       => NULL() 
     76  PROCEDURE(comp_caldyn_slow_hydro), POINTER, SAVE :: compute_caldyn_slow_hydro => NULL() 
     77  PROCEDURE(comp_caldyn_coriolis),   POINTER, SAVE :: compute_caldyn_coriolis   => NULL() 
    7978 
    8079END MODULE compute_caldyn_mod 
Note: See TracChangeset for help on using the changeset viewer.