- Timestamp:
- 2017-11-30T16:58:49+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/mpp.f90
r6392 r8862 266 266 PRIVATE :: mpp__copy_arr ! copy array of mpp structure 267 267 PRIVATE :: mpp__get_use_unit ! get sub domains to be used (which cover "zoom domain") 268 PRIVATE :: mpp__init_mask ! initialise mpp structure, given file name268 PRIVATE :: mpp__init_mask ! initialise mpp structure, given mask array 269 269 PRIVATE :: mpp__init_var ! initialise mpp structure, given variable strcuture 270 270 PRIVATE :: mpp__init_file ! initialise a mpp structure, given file structure … … 586 586 WRITE(*,'(/a)') " Variable(s) used : " 587 587 DO ji=1,td_mpp%t_proc(1)%i_nvar 588 WRITE(*,'(3x,a)') TRIM(td_mpp%t_proc(1)%t_var(ji)%c_name) 588 WRITE(*,'(3x,a)') TRIM(td_mpp%t_proc(1)%t_var(ji)%c_name) 589 589 ENDDO 590 590 ENDIF … … 2550 2550 !> and the number of processors following I and J. 2551 2551 !> Then the number of sea/land processors is compute with mask 2552 ! 2552 !> 2553 2553 !> @author J.Paul 2554 2554 !> @date October, 2015 - Initial version 2555 ! 2555 !> @date October, 2016 2556 !> - compare index to td_lay number of proc instead of td_mpp (bug fix) 2557 !> 2556 2558 !> @param[in] td_mpp mpp strcuture 2557 2559 !> @param[in] id_mask sub domain mask (sea=1, land=0) … … 2670 2672 2671 2673 ! east boundary 2672 IF( ji == td_ mpp%i_niproc )THEN2674 IF( ji == td_lay%i_niproc )THEN 2673 2675 il_lei = td_lay%i_lci(ji,jj) 2674 2676 ELSE … … 2677 2679 2678 2680 ! north boundary 2679 IF( jj == td_ mpp%i_njproc )THEN2681 IF( jj == td_lay%i_njproc )THEN 2680 2682 il_lej = td_lay%i_lcj(ji,jj) 2681 2683 ELSE
Note: See TracChangeset
for help on using the changeset viewer.