Changeset 2749 for trunk/NEMOGCM
- Timestamp:
- 2011-04-22T10:32:02+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90
r2715 r2749 26 26 27 27 INTEGER, PARAMETER :: num_1d_wrkspaces = 27 ! No. of 1D workspace arrays ( MAX(jpi*jpj,jpi*jpk,jpj*jpk) ) 28 INTEGER, PARAMETER :: num_2d_wrkspaces = 3 5! No. of 2D workspace arrays (jpi,jpj)28 INTEGER, PARAMETER :: num_2d_wrkspaces = 37 ! No. of 2D workspace arrays (jpi,jpj) 29 29 INTEGER, PARAMETER :: num_3d_wrkspaces = 15 ! No. of 3D workspace arrays (jpi,jpj,jpk) 30 30 INTEGER, PARAMETER :: num_4d_wrkspaces = 4 ! No. of 4D workspace arrays (jpi,jpj,jpk,jpts) … … 43 43 ! Maximum no. of workspaces of any one dimensionality that can be 44 44 ! requested - MAX(num_1d_wrkspaces, num_2d_wrkspaces, num_3d_wrkspaces, num_4d_wrkspaces) 45 INTEGER :: max_num_wrkspaces = 3 545 INTEGER :: max_num_wrkspaces = 37 46 46 47 47 ! If adding more arrays here, remember to increment the appropriate … … 64 64 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) , TARGET, PUBLIC :: wrk_2d_26, wrk_2d_27, wrk_2d_28, wrk_2d_29, wrk_2d_30 65 65 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) , TARGET, PUBLIC :: wrk_2d_31, wrk_2d_32, wrk_2d_33, wrk_2d_34, wrk_2d_35 66 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) , TARGET, PUBLIC :: wrk_2d_36, wrk_2d_37 66 67 67 68 ! !!** 2D, x-z, REAL(wp) workspaces ** … … 164 165 & wrk_2d_29(jpi,jpj) , wrk_2d_30(jpi,jpj) , & 165 166 & wrk_2d_31(jpi,jpj) , wrk_2d_32(jpi,jpj) , wrk_2d_33(jpi,jpj) , wrk_2d_34(jpi,jpj) , & 166 & wrk_2d_35(jpi,jpj) 167 & wrk_2d_35(jpi,jpj) , wrk_2d_36(jpi,jpj) , wrk_2d_37(jpi,jpj) , STAT=ierror(2) ) 167 168 ! 168 169 ALLOCATE( wrk_3d_1 (jpi,jpj,jpk) , wrk_3d_2 (jpi,jpj,jpk) , wrk_3d_3 (jpi,jpj,jpk) , wrk_3d_4 (jpi,jpj,jpk) , &
Note: See TracChangeset
for help on using the changeset viewer.