- Timestamp:
- 2009-04-09T19:43:00+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/DIA/diaptr.F90
r1358 r1398 63 63 64 64 INTEGER :: niter 65 INTEGER :: nidom_ptr 65 66 66 67 REAL(wp), DIMENSION(jpj,jpk) :: tn_jk_glo, sn_jk_glo, & !: "zonal" mean temperature and salinity … … 494 495 NAMELIST/namptr/ ln_diaptr, ln_diaznl, ln_subbas, ln_ptrcomp, nf_ptr, nf_ptr_wri 495 496 INTEGER :: inum ! temporary logical unit 497 #if defined key_mpp_mpi 496 498 INTEGER, DIMENSION (1) :: iglo, iloc, iabsf, iabsl, ihals, ihale, idid 499 #endif 497 500 !!---------------------------------------------------------------------- 498 501 … … 557 560 !!---------------------------------------------------------------------- 558 561 562 #if defined key_mpp_mpi 559 563 iglo (1) = jpjglo 560 564 iloc (1) = nlcj … … 573 577 !-$$ ENDIF 574 578 575 CALL flio_dom_set ( jpnj, nproc/jpni, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom) 579 CALL flio_dom_set ( jpnj, nproc/jpni, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom_ptr) 580 #else 581 nidom_ptr = FLIO_DOM_NONE 582 #endif 576 583 577 584 END SUBROUTINE dia_ptr_init … … 701 708 ! Horizontal grid : zphi() 702 709 CALL histbeg(clhstnam, 1, zfoo, jpj, zphi, & 703 1, 1, 1, jpj, niter, zjulian, zdt*nf_ptr, nhoridz, numptr, domain_id=nidom )710 1, 1, 1, jpj, niter, zjulian, zdt*nf_ptr, nhoridz, numptr, domain_id=nidom_ptr) 704 711 ! Vertical grids : gdept_0, gdepw_0 705 712 CALL histvert( numptr, "deptht", "Vertical T levels", &
Note: See TracChangeset
for help on using the changeset viewer.