Changeset 3208 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM
- Timestamp:
- 2011-12-09T17:52:22+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3186 r3208 230 230 #if defined key_mpp_mpi 231 231 ijpjjpk = jpj*jpk 232 CALL wrk_alloc( ijpjjpk, zwork )232 CALL wrk_alloc( jpj*jpk, zwork ) 233 233 #endif 234 234 … … 264 264 ! 265 265 #if defined key_mpp_mpi 266 CALL wrk_dealloc( ijpjjpk, zwork )266 CALL wrk_dealloc( jpj*jpk, zwork ) 267 267 #endif 268 268 ! … … 298 298 #if defined key_mpp_mpi 299 299 ijpjjpk = jpj*jpk 300 CALL wrk_alloc( ijpjjpk, zwork )300 CALL wrk_alloc( jpj*jpk, zwork ) 301 301 #endif 302 302 … … 319 319 ! 320 320 #if defined key_mpp_mpi 321 CALL wrk_dealloc( ijpjjpk, zwork )321 CALL wrk_dealloc( jpj*jpk, zwork ) 322 322 #endif 323 323 ! -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3186 r3208 89 89 ijpl = SIZE( pt_ice, 3 ) ! number of ice categories 90 90 91 CALL wrk_alloc( jpi,jpj, ijpl, zalbfz, zficeth )91 CALL wrk_alloc( jpi,jpj,SIZE( pt_ice, 3 ), zalbfz, zficeth ) 92 92 93 93 IF( albd_init == 0 ) CALL albedo_init ! initialization
Note: See TracChangeset
for help on using the changeset viewer.