Changeset 2658 for branches/dev_r2586_dynamic_mem
- Timestamp:
- 2011-03-04T19:20:37+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90
r2636 r2658 45 45 46 46 ! !!! profile of hdiv for some straits 47 REAL(wp), DIMENSION (jpk) :: hdiv_139_101, hdiv_139_101_kt ! Gibraltar strait, fixed & time evolving part (i,j)=(172,101)48 REAL(wp), DIMENSION (jpk) :: hdiv_139_102 ! Gibraltar strait, fixed part only (i,j)=(139,102)49 REAL(wp), DIMENSION (jpk) :: hdiv_141_102, hdiv_141_102_kt ! Gibraltar strait, fixed & time evolving part (i,j)=(141,102)50 REAL(wp), DIMENSION (jpk) :: hdiv_161_88 , hdiv_161_88_kt ! Bab-el-Mandeb strait, fixed & time evolving part (i,j)=(161,88)51 REAL(wp), DIMENSION (jpk) :: hdiv_161_87 ! Bab-el-Mandeb strait, fixed part only (i,j)=(161,87)52 REAL(wp), DIMENSION (jpk) :: hdiv_160_89 , hdiv_160_89_kt ! Bab-el-Mandeb strait, fixed & time evolving part (i,j)=(160,89)53 REAL(wp), DIMENSION (jpk) :: hdiv_172_94 ! Hormuz strait, fixed part only (i,j)=(172, 94)54 55 REAL(wp), DIMENSION (jpk) :: t_171_94_hor, s_171_94_hor ! Temperature, salinity in the Hormuz strait47 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_139_101, hdiv_139_101_kt ! Gibraltar strait, fixed & time evolving part (i,j)=(172,101) 48 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_139_102 ! Gibraltar strait, fixed part only (i,j)=(139,102) 49 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_141_102, hdiv_141_102_kt ! Gibraltar strait, fixed & time evolving part (i,j)=(141,102) 50 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_161_88 , hdiv_161_88_kt ! Bab-el-Mandeb strait, fixed & time evolving part (i,j)=(161,88) 51 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_161_87 ! Bab-el-Mandeb strait, fixed part only (i,j)=(161,87) 52 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_160_89 , hdiv_160_89_kt ! Bab-el-Mandeb strait, fixed & time evolving part (i,j)=(160,89) 53 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: hdiv_172_94 ! Hormuz strait, fixed part only (i,j)=(172, 94) 54 55 REAL(wp), ALLOCATABLE, SAVE, DIMENSION (:) :: t_171_94_hor, s_171_94_hor ! Temperature, salinity in the Hormuz strait 56 56 57 57 !! * Substitutions … … 178 178 !! ** Action : nbab, ngib, nhor strait inside the local domain or not 179 179 !!--------------------------------------------------------------------- 180 REAL(wp) :: ztemp 180 REAL(wp) :: ztemp ! local scalar 181 INTEGER :: ierr ! local integer 181 182 !!--------------------------------------------------------------------- 182 183 ! … … 184 185 IF(lwp) WRITE(numout,*) 'cla_init : cross land advection initialisation ' 185 186 IF(lwp) WRITE(numout,*) '~~~~~~~~~' 187 ! 188 ! ! Allocate arrays for this module 189 ALLOCATE( hdiv_139_101(jpk), hdiv_139_101_kt(jpk), & 190 hdiv_139_102(jpk), & 191 hdiv_141_102(jpk), hdiv_141_102_kt(jpk), & 192 hdiv_161_88(jpk) , hdiv_161_88_kt(jpk) , & 193 hdiv_161_87(jpk) , & 194 hdiv_160_89(jpk) , hdiv_160_89_kt(jpk), & 195 hdiv_172_94(jpk) , & 196 t_171_94_hor(jpk), s_171_94_hor(jpk), & 197 STAT=ierr ) 198 IF( lk_mpp ) CALL ctl_warn( 'cla_init : unable to allocate arrays' ) 199 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'cla_init : unable to allocate arrays' ) 186 200 ! 187 201 IF( .NOT.lk_dynspg_flt ) CALL ctl_stop( 'cla_init: Cross Land Advection works only with lk_dynspg_flt=T ' ) -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r2651 r2658 224 224 225 225 ! Decide on size of grid now that we have our communicator size 226 ! If we're not using dynamic memory then mpp_partition does nothing.227 226 228 227 #if defined key_mpp_mpi || defined key_mpp_shmem … … 238 237 jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first dim. 239 238 jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dim. 239 jpk = jpkdta !: third dim 240 240 jpim1 = jpi-1 !: inner domain indices 241 241 jpjm1 = jpj-1 !: " " -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_EEL_R2.h90
r2528 r2658 29 29 jpiglo = jpidta, & !: 1st dimension of global domain --> i 30 30 jpjglo = jpjdta, & !: 2nd " " --> j 31 jpk = jpkdta, & !: number of vertical levels32 31 ! zoom starting position 33 32 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_EEL_R5.h90
r2528 r2658 29 29 jpiglo = jpidta, & !: first dimension of global domain --> i 30 30 jpjglo = jpjdta, & !: second dimension of global domain --> j 31 jpk = jpkdta, & !: number of vertical levels32 31 ! zoom starting position 33 32 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_EEL_R6.h90
r2528 r2658 29 29 jpiglo = jpidta, & !: 1st dimension of global domain --> i 30 30 jpjglo = jpjdta, & !: 2nd " " --> j 31 jpk = jpkdta, & !: number of vertical levels32 31 ! starting position of the zoom 33 32 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_GYRE.h90
r2528 r2658 29 29 jpiglo = jpidta, & !: 1st dimension of global domain --> i 30 30 jpjglo = jpjdta, & !: 2nd " " --> j 31 jpk = jpkdta, & !: number of vertical levels32 31 ! zoom starting position 33 32 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R025.h90
r2528 r2658 32 32 jpiglo = jpidta, & !: first dimension of global domain --> i 33 33 jpjglo = jpjdta, & !: second dimension of global domain --> j 34 jpk = jpkdta, & !: number of vertical levels35 34 ! starting position of the zoom 36 35 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R05.h90
r2528 r2658 36 36 jpiglo = jpidta, & !: 1st dimension of global domain --> i 37 37 jpjglo = 187 , & !: 2nd " " --> j 38 jpk = jpkdta, & !: number of vertical levels39 38 ! starting position of the zoom 40 39 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom … … 53 52 jpiglo = 562, & !: 1st dimension of global domain --> i 54 53 jpjglo = jpjdta-301+1,& !: 2nd " " --> j 55 jpk = jpkdta, & !: number of vertical levels56 54 ! zoom starting position 57 55 jpizoom = 81 , & !: left bottom (i,j) indices of the zoom … … 69 67 jpiglo = jpidta, & !: 1st dimension of global domain --> i 70 68 jpjglo = jpjdta, & !: 2nd " " --> j 71 jpk = jpkdta, & !: number of vertical levels72 69 ! zoom starting position 73 70 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R1.h90
r2528 r2658 35 35 jpiglo = jpidta, & !: first dimension of global domain --> i 36 36 jpjglo = jpjdta, & !: second dimension of global domain --> j 37 jpk = jpkdta, & !: number of vertical levels38 37 ! starting position of the zoom 39 38 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R2.h90
r2528 r2658 36 36 jpiglo = jpidta, & !: 1st dimension of global domain --> i 37 37 jpjglo = 50, & !: 2nd " " --> j 38 jpk = jpkdta, & !: number of vertical levels39 38 ! zoom starting position 40 39 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom … … 52 51 jpiglo = 142 , & !: 1st dimension of global domain --> i 53 52 jpjglo = jpjdta-97+1, & !: 2nd " " --> j 54 jpk = jpkdta, & !: number of vertical levels55 53 ! zoom starting position 56 54 jpizoom = 21 , & !: left bottom (i,j) indices of the zoom … … 68 66 jpiglo = 3 , & !: 1st dimension of global domain --> i 69 67 jpjglo = 3 , & !: 2nd " " --> j 70 jpk = jpkdta, & !: number of vertical levels71 68 ! starting position of the zoom 72 69 ! jpizoom = 61 , & !: left bottom (i,j) indices of the zoom … … 97 94 jpiglo = jpidta, & !: 1st dimension of global domain --> i 98 95 jpjglo = jpjdta, & !: 2nd " " --> j 99 jpk = jpkdta, & !: number of vertical levels100 96 ! starting position of the zoom 101 97 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R4.h90
r2528 r2658 28 28 jpiglo = jpidta, & !: first dimension of global domain --> i 29 29 jpjglo = jpjdta, & !: second dimension of global domain --> j 30 jpk = jpkdta, & !: number of vertical levels31 30 ! starting position of the zoom 32 31 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_POMME_R025.h90
r2528 r2658 36 36 jpiglo = jpidta, & !: first dimension of global domain --> i 37 37 jpjglo = jpjdta, & !: second dimension of global domain --> j 38 jpk = jpkdta, & !: number of vertical levels39 38 ! starting position of the zoom 40 39 jpizoom = 1 , & !: left bottom (i,j) indices of the zoom -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
r2590 r2658 197 197 INTEGER, PUBLIC :: jpi ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first dimension 198 198 INTEGER, PUBLIC :: jpj ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dimension 199 INTEGER, PUBLIC :: jpk ! = jpkdta !: third dimension 199 200 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 200 201 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - -
Note: See TracChangeset
for help on using the changeset viewer.