Changeset 1026 for codes/icosagcm/devel
- Timestamp:
- 05/18/20 14:08:19 (4 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dcmip/dcmip2016_kessler_physic.f90
r824 r1026 74 74 !------------------------------------------------ 75 75 76 INTEGER, INTENT(IN) :: nz ! Number of thermodynamic levels in the column 77 76 78 REAL(8), DIMENSION(nz), INTENT(INOUT) :: & 77 79 theta , & ! Potential temperature (K) … … 92 94 REAL(8), INTENT(IN) :: & 93 95 dt ! Time step (s) 94 95 INTEGER, INTENT(IN) :: nz ! Number of thermodynamic levels in the column96 96 97 97 !------------------------------------------------ -
codes/icosagcm/devel/src/dissip/nudging_mod.f90
r989 r1026 15 15 nudging_relaxation_time_in,nudging_relaxation_time_out 16 16 !$OMP THREADPRIVATE(center_lon, center_lat, nudging_radius, nudging_relaxation_time,nudging_relaxation_time_in,nudging_relaxation_time_out) 17 17 18 TYPE(t_field),POINTER :: f_relax_coef_e(:), f_target_ue(:), & 18 19 f_relax_coef_i(:), f_target_theta_rhodz(:),f_target_ps(:) 19 CHARACTER(LEN=255) ,SAVE:: guided_nudging_field20 INTEGER ,SAVE:: nudging_time20 CHARACTER(LEN=255) :: guided_nudging_field 21 INTEGER :: nudging_time 21 22 22 23 PUBLIC :: init_guided, guided -
codes/icosagcm/devel/src/dynamics/compute_NH_geopot.F90
r980 r1026 228 228 tau2_g=tau*tau/g 229 229 g2=g*g 230 gm2 = g** -2230 gm2 = g**(-2) 231 231 gamma = 1./(1.-kappa) 232 232 -
codes/icosagcm/devel/src/initial/etat0_heldsz.f90
r609 r1026 8 8 TYPE(t_field),POINTER :: f_theta(:) 9 9 10 REAL(rstd),ALLOCATABLE ,SAVE:: knewt_t(:),kfrict(:)10 REAL(rstd),ALLOCATABLE :: knewt_t(:),kfrict(:) 11 11 !$OMP THREADPRIVATE(knewt_t,kfrict) 12 LOGICAL , SAVE:: done=.FALSE.12 LOGICAL :: done=.FALSE. 13 13 !$OMP THREADPRIVATE(done) 14 14 15 REAL(rstd) ,SAVE:: p0,teta0,ttp,delt_y,delt_z,eps15 REAL(rstd) :: p0,teta0,ttp,delt_y,delt_z,eps 16 16 !$OMP THREADPRIVATE(p0,teta0,ttp,delt_y,delt_z,eps) 17 17 18 REAL(rstd) ,SAVE:: knewt_g, k_f,k_c_a,k_c_s18 REAL(rstd) :: knewt_g, k_f,k_c_a,k_c_s 19 19 !$OMP THREADPRIVATE(knewt_g, k_f,k_c_a,k_c_s) 20 20 -
codes/icosagcm/devel/src/output/output_field.f90
r883 r1026 7 7 PRIVATE 8 8 9 LOGICAL ,SAVE:: xios_output9 LOGICAL :: xios_output 10 10 !$OMP THREADPRIVATE(xios_output) 11 LOGICAL ,SAVE:: enable_io11 LOGICAL :: enable_io 12 12 !$OMP THREADPRIVATE(enable_io) 13 13 -
codes/icosagcm/devel/src/output/xios_mod.F90
r992 r1026 25 25 #ifdef CPP_USING_XIOS 26 26 27 PUBLIC :: xios_timestep, & 27 PUBLIC :: xios_timestep, & 28 28 xios_set_file_attr, xios_set_fieldgroup_attr, & 29 29 xios_set_filegroup_attr, xios_get_axis_attr, & 30 30 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(*) 32 33 33 34 CONTAINS -
codes/icosagcm/devel/src/parallel/transfert_mpi.f90
r868 r1026 2159 2159 IMPLICIT NONE 2160 2160 2161 INTEGER,INTENT(IN) :: nb 2161 2162 INTEGER,DIMENSION(nb),INTENT(INOUT) :: Var 2162 INTEGER,INTENT(IN) :: nb2163 2163 2164 2164 IF (.NOT. using_mpi) RETURN … … 2176 2176 IMPLICIT NONE 2177 2177 2178 INTEGER,INTENT(IN) :: nb 2178 2179 REAL,DIMENSION(nb),INTENT(INOUT) :: Var 2179 INTEGER,INTENT(IN) :: nb2180 2180 2181 2181 IF (.NOT. using_mpi) RETURN … … 2193 2193 IMPLICIT NONE 2194 2194 2195 INTEGER,INTENT(IN) :: nb 2195 2196 LOGICAL,DIMENSION(nb),INTENT(INOUT) :: Var 2196 INTEGER,INTENT(IN) :: nb2197 2197 2198 2198 IF (.NOT. using_mpi) RETURN -
codes/icosagcm/devel/src/parallel/transfert_omp.f90
r533 r1026 804 804 SUBROUTINE bcast_omp_cgen(Var,Nb,Buff) 805 805 IMPLICIT NONE 806 806 INTEGER,INTENT(IN) :: Nb 807 807 CHARACTER(LEN=*),INTENT(INOUT) :: Var 808 808 CHARACTER(LEN=*),INTENT(INOUT) :: Buff 809 INTEGER,INTENT(IN) :: Nb810 809 811 810 INTEGER :: i … … 824 823 825 824 826 825 827 826 SUBROUTINE bcast_omp_igen(Var,Nb,Buff) 828 827 IMPLICIT NONE 829 828 INTEGER,INTENT(IN) :: Nb 830 829 INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Var 831 830 INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Buff 832 INTEGER,INTENT(IN) :: Nb833 831 834 832 INTEGER :: i … … 851 849 SUBROUTINE bcast_omp_rgen(Var,Nb,Buff) 852 850 IMPLICIT NONE 853 851 INTEGER,INTENT(IN) :: Nb 854 852 REAL,DIMENSION(Nb),INTENT(INOUT) :: Var 855 853 REAL,DIMENSION(Nb),INTENT(INOUT) :: Buff 856 INTEGER,INTENT(IN) :: Nb857 854 858 855 INTEGER :: i … … 874 871 SUBROUTINE bcast_omp_lgen(Var,Nb,Buff) 875 872 IMPLICIT NONE 876 873 INTEGER,INTENT(IN) :: Nb 877 874 LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Var 878 875 LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Buff 879 INTEGER,INTENT(IN) :: Nb880 876 881 877 INTEGER :: i -
codes/icosagcm/devel/src/physics/physics.f90
r1011 r1026 106 106 !$OMP END PARALLEL 107 107 108 IF( done==.FALSE.) THEN108 IF(.NOT. done) THEN 109 109 SELECT CASE(phys_type) 110 110 CASE(phys_external) -
codes/icosagcm/devel/src/sphere/compute_geometry.f90
r993 r1026 9 9 USE transfert_mod, ONLY : req_i0, req_i1, t_message, transfert_request, transfert_message, init_message 10 10 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 15 13 USE vector, ONLY : norm, cross_product2 16 14 -
codes/icosagcm/devel/src/time/hevi_scheme.f90
r951 r1026 37 37 ! Euler scheme disguised as ARK for development purposes 38 38 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./) /) ) 40 40 END SUBROUTINE set_coefs_ark11 41 41
Note: See TracChangeset
for help on using the changeset viewer.