diff --git a/src/MNH/ini_surfstationn.f90 b/src/MNH/ini_surfstationn.f90 index ebd00481763b8dedb6dc83d52cd6ad3bff41f36a..8811fa5666227e79c3ca27aeded67260872477c0 100644 --- a/src/MNH/ini_surfstationn.f90 +++ b/src/MNH/ini_surfstationn.f90 @@ -66,13 +66,13 @@ USE MODD_DYN_n, ONLY: DYN_MODEL, XTSTEP USE MODD_GRID_n, ONLY: XXHAT, XYHAT USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT USE MODD_STATION_n -USE MODD_TYPE_STATION +USE MODD_TYPE_STATPROF ! USE MODE_MSG -USE MODE_STATION_READER -USE MODE_STATION_TOOLS, ONLY: STATION_ADD, STATION_ALLOCATE, STATION_INI_INTERP, STATION_POSITION -USE MODE_ALLOCBUFFER_ll, ONLY: ALLOCBUFFER_ll -USE MODE_GATHER_ll, ONLY: GATHERALL_FIELD_ll +USE MODE_STATPROF_READER +USE MODE_STATPROF_TOOLS, ONLY: STATION_ADD, STATION_ALLOCATE, STATION_INI_INTERP, STATION_POSITION +USE MODE_ALLOCBUFFER_ll, ONLY: ALLOCBUFFER_ll +USE MODE_GATHER_ll, ONLY: GATHERALL_FIELD_ll ! IMPLICIT NONE ! diff --git a/src/MNH/modd_stationn.f90 b/src/MNH/modd_stationn.f90 index f86692bf4454c75969971ef6ea3225b5202d982c..bd86a1595f89adf0ebff85eaf35a90f32e1d9418 100644 --- a/src/MNH/modd_stationn.f90 +++ b/src/MNH/modd_stationn.f90 @@ -36,8 +36,8 @@ ! ------------ ! ! -USE MODD_PARAMETERS, ONLY: JPMODELMAX -USE MODD_TYPE_STATION, ONLY: TSTATIONDATA, TSTATPROFTIME +USE MODD_PARAMETERS, ONLY: JPMODELMAX +USE MODD_TYPE_STATPROF, ONLY: TSTATIONDATA, TSTATPROFTIME IMPLICIT NONE diff --git a/src/MNH/modd_type_statprof.f90 b/src/MNH/modd_type_statprof.f90 index ed408c9affba4b01b7ec8a01ff4f6080a1ca8469..12150549ae78a8d88a3ca51f5e932d8568c02a67 100644 --- a/src/MNH/modd_type_statprof.f90 +++ b/src/MNH/modd_type_statprof.f90 @@ -4,7 +4,7 @@ !MNH_LIC for details. version 1. !----------------------------------------------------------------- ! ############################ - MODULE MODD_TYPE_STATION + MODULE MODD_TYPE_STATPROF ! ############################ ! !!**** *MODD_STATION* - declaration of stations @@ -111,4 +111,4 @@ REAL, DIMENSION(:), ALLOCATABLE :: XSFCO2 ! CO2 surface flux END TYPE TSTATIONDATA -END MODULE MODD_TYPE_STATION +END MODULE MODD_TYPE_STATPROF diff --git a/src/MNH/stationn.f90 b/src/MNH/stationn.f90 index 0343d9da3263ae25f0e1bbccbc98b8caec4e7814..41e95dc537a226a35ae172e9980559f383625cf3 100644 --- a/src/MNH/stationn.f90 +++ b/src/MNH/stationn.f90 @@ -97,7 +97,7 @@ USE MODD_STATION_n USE MODD_ALLSTATION_n, ONLY: LDIAG_SURFRAD USE MODD_TIME_n, ONLY: tdtcur ! -USE MODE_STATION_TOOLS, ONLY: STATION_INTERP_2D, STATION_INTERP_2D_U, STATION_INTERP_2D_V +USE MODE_STATPROF_TOOLS, ONLY: STATION_INTERP_2D, STATION_INTERP_2D_U, STATION_INTERP_2D_V ! ! IMPLICIT NONE diff --git a/src/MNH/statprof_reader.f90 b/src/MNH/statprof_reader.f90 index 1a72bfe1a38114df7ad6042de93546c84d8654d0..ed645d7ab9660d22c9360f599acbc49e0a0654a3 100644 --- a/src/MNH/statprof_reader.f90 +++ b/src/MNH/statprof_reader.f90 @@ -3,9 +3,9 @@ !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -! ####################### - MODULE MODE_STATION_READER -! ####################### +! ############################ + MODULE MODE_STATPROF_READER +! ############################ IMPLICIT NONE @@ -41,10 +41,10 @@ SUBROUTINE READ_CSV_STATION( HFILE, PXHAT_GLOB, PYHAT_GLOB, PXHATM, PYHATM, USE MODD_CONF, ONLY: LCARTESIAN USE MODD_STATION_n, ONLY: NUMBSTAT -USE MODD_TYPE_STATION, ONLY: TSTATIONDATA +USE MODD_TYPE_STATPROF, ONLY: TSTATIONDATA USE MODE_MSG -USE MODE_STATION_TOOLS, ONLY: STATION_ADD, STATION_INI_INTERP, STATION_POSITION +USE MODE_STATPROF_TOOLS, ONLY: STATION_ADD, STATION_INI_INTERP, STATION_POSITION CHARACTER(LEN=*), INTENT(IN) :: HFILE ! file to read REAL, DIMENSION(:), INTENT(IN) :: PXHAT_GLOB @@ -131,4 +131,4 @@ END IF ! END SUBROUTINE FRENCH_TO_ENGLISH -END MODULE MODE_STATION_READER +END MODULE MODE_STATPROF_READER diff --git a/src/MNH/statprof_tools.f90 b/src/MNH/statprof_tools.f90 index 10b3c1ee3234e31c25348398a082c3bd7cd18006..0a5e466c3d200672a13d90822dde6c518c219570 100644 --- a/src/MNH/statprof_tools.f90 +++ b/src/MNH/statprof_tools.f90 @@ -9,11 +9,11 @@ !----------------------------------------------------------------- ! Modifications: !----------------------------------------------------------------- -! ################## -MODULE MODE_STATION_TOOLS -! ################## +! ################### +MODULE MODE_STATPROF_TOOLS +! ################### -USE MODD_TYPE_STATION, ONLY: TSTATIONDATA +USE MODD_TYPE_STATPROF, ONLY: TSTATIONDATA IMPLICIT NONE @@ -390,4 +390,4 @@ FUNCTION STATION_INTERP_2D_V( TPSTATION, PA ) RESULT( PB ) END FUNCTION STATION_INTERP_2D_V -END MODULE MODE_STATION_TOOLS +END MODULE MODE_STATPROF_TOOLS diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90 index 23d6b40e70cde2fdc11a7b8241da9777f4529660..7b35ea4c87b86ba021a71a3e2e4e25e4c0cfae31 100644 --- a/src/MNH/write_stationn.f90 +++ b/src/MNH/write_stationn.f90 @@ -77,9 +77,9 @@ USE MODD_NSV, ONLY: nsv USE MODD_PARAM_n, ONLY: CRAD, CSURF, CTURB USE MODD_PRECISION, ONLY: MNHINT_MPI, MNHREAL_MPI USE MODD_STATION_n, only: NUMBSTAT_LOC, TSTATIONS, tstations_time -USE MODD_TYPE_STATION, ONLY: TSTATIONDATA +USE MODD_TYPE_STATPROF, ONLY: TSTATIONDATA ! -USE MODE_STATION_TOOLS, ONLY: STATION_ALLOCATE +USE MODE_STATPROF_TOOLS, ONLY: STATION_ALLOCATE ! IMPLICIT NONE ! @@ -292,25 +292,25 @@ END SUBROUTINE WRITE_STATION_n SUBROUTINE STATION_DIACHRO_n( TPDIAFILE, TPSTATION ) ! ################################################## -USE MODD_ALLSTATION_n, ONLY: LDIAG_SURFRAD -use modd_budget, only: NLVL_CATEGORY, NLVL_SUBCATEGORY, NLVL_GROUP, NLVL_SHAPE, NLVL_TIMEAVG, NLVL_NORM, NLVL_MASK, & - tbudiachrometadata -USE MODD_CONF, ONLY: LCARTESIAN -USE MODD_CST, ONLY: XRV -use modd_field, only: NMNHDIM_STATION_TIME, NMNHDIM_STATION_PROC, NMNHDIM_UNUSED, & - tfieldmetadata_base, TYPEREAL -USE MODD_IO, ONLY: TFILEDATA -USE MODD_NSV, ONLY: nsv, nsv_aer, nsv_aerbeg, nsv_aerend, & - nsv_dst, nsv_dstbeg, nsv_dstend, nsv_slt, nsv_sltbeg, nsv_sltend, & - tsvlist -USE MODD_PARAM_n, ONLY: CRAD, CSURF, CTURB -use modd_station_n, only: tstations_time -use modd_type_station, only: tstationdata +USE MODD_ALLSTATION_n, ONLY: LDIAG_SURFRAD +use modd_budget, only: NLVL_CATEGORY, NLVL_SUBCATEGORY, NLVL_GROUP, NLVL_SHAPE, NLVL_TIMEAVG, NLVL_NORM, NLVL_MASK, & + tbudiachrometadata +USE MODD_CONF, ONLY: LCARTESIAN +USE MODD_CST, ONLY: XRV +use modd_field, only: NMNHDIM_STATION_TIME, NMNHDIM_STATION_PROC, NMNHDIM_UNUSED, & + tfieldmetadata_base, TYPEREAL +USE MODD_IO, ONLY: TFILEDATA +USE MODD_NSV, ONLY: nsv, nsv_aer, nsv_aerbeg, nsv_aerend, & + nsv_dst, nsv_dstbeg, nsv_dstend, nsv_slt, nsv_sltbeg, nsv_sltend, & + tsvlist +USE MODD_PARAM_n, ONLY: CRAD, CSURF, CTURB +use modd_station_n, only: tstations_time +use modd_type_statprof, only: tstationdata USE MODE_AERO_PSD USE MODE_DUST_PSD USE MODE_SALT_PSD -use MODE_WRITE_DIACHRO, ONLY: Write_diachro +use MODE_WRITE_DIACHRO, ONLY: Write_diachro TYPE(TFILEDATA), INTENT(IN) :: TPDIAFILE ! diachronic file to write TYPE(TSTATIONDATA), INTENT(IN) :: TPSTATION