Changeset 12815


Ignore:
Timestamp:
2020-04-25T11:00:22+02:00 (7 months ago)
Author:
smasson
Message:

Extra_Halo: minor bugfix following [12807], see #2366

Location:
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/IOM/iom.F90

    r12807 r12815  
    18871887         ! 
    18881888         CALL iom_set_domain_attr( "grid_"//cdgrd       , mask = RESHAPE(zmask(Nis0:Nie0,Njs0:Nje0,1),(/Ni_0*Nj_0    /)) /= 0. ) 
    1889          CALL iom_set_grid_attr  ( "grid_"//cdgrd//"_3D", mask = RESHAPE(zmask(Nis0:Nie0,Njs0:Nje0,:),(/Ni_0*Nj_0,jpk/)) /= 0. ) 
     1889         CALL iom_set_grid_attr  ( "grid_"//cdgrd//"_3D", mask = RESHAPE(zmask(Nis0:Nie0,Njs0:Nje0,:),(/Ni_0,Nj_0,jpk/)) /= 0. ) 
    18901890      ENDIF 
    18911891      ! 
     
    20082008      !!---------------------------------------------------------------------- 
    20092009      ! 
    2010       ALLOCATE( zlon(ni*nj) )       ;       zlon(:) = 0._wp 
     2010      ALLOCATE( zlon(Ni_0*Nj_0) )       ;       zlon(:) = 0._wp 
    20112011      ! 
    20122012!      CALL dom_ngb( -168.53, 65.03, ix, iy, 'T' ) !  i-line that passes through Bering Strait: Reference latitude (used in plots) 
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ISF/isfutils.F90

    r12807 r12815  
    1414   USE iom           , ONLY: iom_open, iom_get, iom_close, jpdom_global      ! read input file 
    1515   USE lib_fortran   , ONLY: glob_sum, glob_min, glob_max                    ! compute global value 
    16    USE par_oce       , ONLY: jpi,jpj,jpk, jpnij                              ! domain size 
    17    USE dom_oce       , ONLY: Nis0, Nie0, Njs0, Nje0, narea, tmask_h, tmask_i ! local domain 
     16   USE par_oce       , ONLY: jpi,jpj,jpk, jpnij, Nis0, Nie0, Njs0, Nje0      ! domain size 
     17   USE dom_oce       , ONLY: narea, tmask_h, tmask_i                        ! local domain 
    1818   USE in_out_manager, ONLY: i8, wp, lwp, numout                             ! miscelenious 
    1919   USE lib_mpp 
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/OBS/mpp_map.F90

    r12807 r12815  
    1111   !!---------------------------------------------------------------------- 
    1212   USE par_kind, ONLY :   wp            ! Precision variables 
    13    USE par_oce , ONLY :   jpi, jpj      ! Ocean parameters 
    14    USE dom_oce , ONLY :   mig, mjg, Nis0, Nie0, Njs0, Nje0, jpi, jpj, narea   ! Ocean space and time domain variables 
     13   USE par_oce , ONLY :   jpi, jpj, Nis0, Nie0, Njs0, Nje0   ! Ocean parameters 
     14   USE dom_oce , ONLY :   mig, mjg, narea                    ! Ocean space and time domain variables 
    1515#if defined key_mpp_mpi 
    16    USE lib_mpp, ONLY :   mpi_comm_oce   ! MPP library 
     16   USE lib_mpp , ONLY :   mpi_comm_oce   ! MPP library 
    1717#endif 
    1818   USE in_out_manager   ! I/O manager 
Note: See TracChangeset for help on using the changeset viewer.