- Timestamp:
- 2013-04-09T18:34:38+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3862 r3865 259 259 ! 260 260 #if defined key_mpp_mpi 261 ijpjjpk = jpj*jpk 261 262 ish(1) = ijpjjpk ; ish2(1) = jpj ; ish2(2) = jpk 262 263 zwork(1:ijpjjpk) = RESHAPE( p_fval, ish ) … … 314 315 END DO 315 316 #if defined key_mpp_mpi 317 ijpjjpk = jpj*jpk 316 318 ish(1) = jpj*jpk ; ish2(1) = jpj ; ish2(2) = jpk 317 319 zwork(1:ijpjjpk)= RESHAPE( p_fval, ish )
Note: See TracChangeset
for help on using the changeset viewer.