Context Navigation

← Previous Changeset
Next Changeset →

Changeset 8831

Timestamp:

2017-11-28T11:55:21+01:00 (7 years ago)

Author:

andmirek

Message:

remove USE statements duplicating variables in iom module

Location:

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO

Files:

: 18 edited

OPA_SRC/DIA/diahsb.F90 (modified) (1 diff)
OPA_SRC/DOM/daymod.F90 (modified) (1 diff)
OPA_SRC/DOM/domain.F90 (modified) (1 diff)
OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)
OPA_SRC/DOM/iscplrst.F90 (modified) (1 diff)
OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)
OPA_SRC/IOM/restart.F90 (modified) (1 diff)
OPA_SRC/SBC/sbcapr.F90 (modified) (1 diff)
OPA_SRC/SBC/sbcisf.F90 (modified) (1 diff)
OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)
OPA_SRC/SBC/sbcrnf.F90 (modified) (1 diff)
OPA_SRC/SBC/sbcssm.F90 (modified) (1 diff)
OPA_SRC/TRA/traqsr.F90 (modified) (1 diff)
OPA_SRC/TRA/trasbc.F90 (modified) (1 diff)
OPA_SRC/ZDF/zdfgls.F90 (modified) (1 diff)
OPA_SRC/ZDF/zdfini.F90 (modified) (1 diff)
OPA_SRC/ZDF/zdftke.F90 (modified) (1 diff)
SAS_SRC/daymod.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

r8801	r8831
32	32	USE timing ! preformance summary
33	33	USE wrk_nemo ! work arrays
34		~~USE iom_def, ONLY : lwxios~~
35		~~USE iom_def, ONLY : lrxios~~
36	34
37	35	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

r8801	r8831
33	33	USE timing ! Timing
34	34	USE restart ! restart
35		~~USE iom_def, ONLY : lwxios~~
36		~~USE iom_def, ONLY : lrxios~~
37	35
38	36	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

-                      r8821
+                      r8831
    USE wrk_nemo       ! Memory Allocation
    USE timing         ! Timing
-   USE iom_def, ONLY:lwxios, nxioso, rst_wfields ! write restart flag and output type
-   USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core
-   USE iom_def, ONLY : lrxios
    IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

r8801	r8831
33	33	USE wrk_nemo ! Memory allocation
34	34	USE timing ! Timing
35		~~USE iom_def, ONLY : lrxios, lwxios~~
36	35
37	36	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

r8801	r8831
25	25	USE iscplini ! ice sheet coupling: initialisation
26	26	USE iscplhsb ! ice sheet coupling: conservation
27		~~USE iom_def, ONLY : lrxios~~
28	27
29	28	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

r8801	r8831
56	56	USE asminc ! Assimilation increment
57	57	#endif
58		~~USE iom_def, ONLY : lrxios, lwxios~~
59
60	58
61	59	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

r8801	r8831
28	28	USE iom ! I/O module
29	29	USE diurnal_bulk
30		~~USE iom_def, ONLY : lwxios~~
31	30
32	31	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

r8801	r8831
19	19	USE iom ! IOM library
20	20	USE lib_mpp ! MPP library
21		~~USE iom_def, ONLY : lwxios~~
22	21
23	22	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

r8801	r8831
27	27	USE timing ! Timing
28	28	USE lib_fortran ! glob_sum
29		~~USE iom_def, ONLY : lrxios, lwxios~~
30	29
31	30	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

-                      r8801
+                      r8831
    USE lib_mpp        ! MPP library
    USE timing         ! Timing
    USE diurnal_bulk, ONLY:   ln_diurnal_only   ! diurnal SST diagnostic
-   USE iom_def, ONLY : lrxios, lwxios
    IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

r8801	r8831
28	28	USE lib_mpp ! MPP library
29	29	USE wrk_nemo ! Memory allocation
30		~~USE iom_def, ONLY : lrxios, lwxios~~
31	30
32	31	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

r8801	r8831
22	22	USE prtctl ! Print control
23	23	USE iom ! IOM library
24		~~USE iom_def, ONLY : lrxios, lwxios~~
25	24
26	25	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

r8801	r8831
36	36	USE wrk_nemo ! Memory Allocation
37	37	USE timing ! Timing
38		USE iom_def, ONLY : lrxios, lwxios
	38
39	39	IMPLICIT NONE
40	40	PRIVATE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

r8801	r8831
34	34	USE wrk_nemo ! Memory Allocation
35	35	USE timing ! Timing
36		~~USE iom_def, ONLY : lrxios, lwxios~~
37	36
38	37	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

r8801	r8831
34	34	USE timing ! Timing
35	35	USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
36		~~USE iom_def, ONLY : lrxios, lwxios~~
37	36
38	37	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

r8801	r8831
28	28	USE iom ! IOM library
29	29	USE lib_mpp ! distribued memory computing
30		~~USE iom_def, ONLY : lrxios~~
31	30
32	31	IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

-                      r8801
+                      r8831
    USE timing         ! Timing
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
-   USE iom_def, ONLY : lwxios
 #if defined key_agrif
    USE agrif_opa_interp
    USE agrif_opa_update
 #endif
-   USE iom_def, ONLY : lrxios
    IMPLICIT NONE

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAS_SRC/daymod.F90

r8812	r8831
33	33	USE timing ! Timing
34	34	USE restart ! restart
35		USE iom_def, ONLY : lrxios, lwxios
	35
36	36	IMPLICIT NONE
37	37	PRIVATE

Note: See TracChangeset for help on using the changeset viewer.

New URL for NEMO forge! http://forge.nemo-ocean.eu