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

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2658 for branches – NEMO

Changeset 2658 for branches


Ignore:
Timestamp:
2011-03-04T19:20:37+01:00 (13 years ago)
Author:
trackstand2
Message:

Make jpk a variable rather than parameter

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  
    4545    
    4646   !                                                              !!! 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 strait 
     47   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 
    5656    
    5757   !! * Substitutions 
    … …  
    178178      !! ** Action  :   nbab, ngib, nhor   strait inside the local domain or not 
    179179      !!--------------------------------------------------------------------- 
    180       REAL(wp) ::   ztemp 
     180      REAL(wp) ::   ztemp   ! local scalar 
     181      INTEGER  ::   ierr    ! local integer 
    181182      !!--------------------------------------------------------------------- 
    182183      ! 
    … …  
    184185      IF(lwp) WRITE(numout,*) 'cla_init : cross land advection initialisation ' 
    185186      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' ) 
    186200      ! 
    187201      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  
    224224 
    225225      ! 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. 
    227226 
    228227#if   defined key_mpp_mpi   ||   defined key_mpp_shmem 
    … …  
    238237      jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first  dim. 
    239238      jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dim. 
     239      jpk = jpkdta                                           !: third dim 
    240240      jpim1 = jpi-1                                          !: inner domain indices 
    241241      jpjm1 = jpj-1                                          !:   "           " 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_EEL_R2.h90

    r2528 r2658  
    2929      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3030      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
    31       jpk     = jpkdta,      &  !: number of vertical levels 
    3231      ! zoom starting position 
    3332      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  
    2929      jpiglo  = jpidta,      &  !: first  dimension of global domain --> i 
    3030      jpjglo  = jpjdta,      &  !: second dimension of global domain --> j 
    31       jpk     = jpkdta,      &  !: number of vertical levels 
    3231      ! zoom starting position 
    3332      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  
    2929      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3030      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
    31       jpk     = jpkdta,      &  !: number of vertical levels 
    3231      ! starting position of the zoom 
    3332      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_GYRE.h90

    r2528 r2658  
    2929      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3030      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
    31       jpk     = jpkdta,      &  !: number of vertical levels 
    3231      ! zoom starting position 
    3332      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  
    3232      jpiglo  = jpidta,      &  !: first  dimension of global domain --> i 
    3333      jpjglo  = jpjdta,      &  !: second dimension of global domain --> j 
    34       jpk     = jpkdta,      &  !: number of vertical levels 
    3534      ! starting position of the zoom 
    3635      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  
    3636      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3737      jpjglo  = 187   ,      &  !: 2nd     "                 "    --> j  
    38       jpk     = jpkdta,      &  !: number of vertical levels 
    3938      ! starting position of the zoom 
    4039      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom 
    … …  
    5352      jpiglo  = 562,         &  !: 1st dimension of global domain --> i 
    5453      jpjglo  = jpjdta-301+1,&  !: 2nd     "                 "    --> j 
    55       jpk     = jpkdta,      &  !: number of vertical levels 
    5654      ! zoom starting position 
    5755      jpizoom =  81   ,      &  !: left bottom (i,j) indices of the zoom 
    … …  
    6967      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    7068      jpjglo  = jpjdta,      &  !: 2nd     "                 "    --> j 
    71       jpk     = jpkdta,      &  !: number of vertical levels 
    7269      ! zoom starting position     
    7370      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  
    3535      jpiglo  = jpidta,      &  !: first  dimension of global domain --> i 
    3636      jpjglo  = jpjdta,      &  !: second dimension of global domain --> j 
    37       jpk     = jpkdta,      &  !: number of vertical levels 
    3837      ! starting position of the zoom 
    3938      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  
    3636      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3737      jpjglo  = 50,          &  !: 2nd    "                  "    --> j 
    38       jpk     = jpkdta,      &  !: number of vertical levels 
    3938      ! zoom starting position 
    4039      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom 
    … …  
    5251      jpiglo  = 142   ,      &  !: 1st dimension of global domain --> i 
    5352      jpjglo  = jpjdta-97+1, &  !: 2nd    "                  "    --> j 
    54       jpk     = jpkdta,      &  !: number of vertical levels 
    5553      ! zoom starting position  
    5654      jpizoom =  21   ,      &  !: left bottom (i,j) indices of the zoom 
    … …  
    6866      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i 
    6967      jpjglo  = 3     ,      &  !: 2nd    "                  "    --> j 
    70       jpk     = jpkdta,      &  !: number of vertical levels 
    7168      ! starting position of the zoom  
    7269      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
    … …  
    9794      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    9895      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
    99       jpk     = jpkdta,      &  !: number of vertical levels 
    10096      ! starting position of the zoom  
    10197      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  
    2828      jpiglo  = jpidta,      &  !: first  dimension of global domain --> i 
    2929      jpjglo  = jpjdta,      &  !: second dimension of global domain --> j 
    30       jpk     = jpkdta,      &  !: number of vertical levels 
    3130      ! starting position of the zoom 
    3231      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  
    3636      jpiglo  = jpidta,      &  !: first  dimension of global domain --> i 
    3737      jpjglo  = jpjdta,      &  !: second dimension of global domain --> j 
    38       jpk     = jpkdta,      &  !: number of vertical levels 
    3938      ! starting position of the zoom 
    4039      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r2590 r2658  
    197197   INTEGER, PUBLIC  ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension 
    198198   INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
     199   INTEGER, PUBLIC  ::   jpk   ! = jpkdta                                             !: third dimension 
    199200   INTEGER, PUBLIC  ::   jpim1 ! = jpi-1                                            !: inner domain indices 
    200201   INTEGER, PUBLIC  ::   jpjm1 ! = jpj-1                                            !:   -     -      - 
Note: See TracChangeset for help on using the changeset viewer.