Changeset 5040 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF
- Timestamp:
- 2015-01-22T14:23:26+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90
r4325 r5040 146 146 INTEGER :: inum, iim, ijm ! local integers 147 147 INTEGER :: ifreq, il1, il2, ij, ii 148 INTEGER :: ijpt0,ijpt1 148 INTEGER :: ijpt0,ijpt1, ierror 149 149 REAL(wp) :: zahmeq, zcoft, zcoff, zmsk 150 150 CHARACTER (len=15) :: clexp 151 INTEGER, POINTER, DIMENSION(:,:) :: icof152 INTEGER, POINTER, DIMENSION(:,:) :: idata151 INTEGER, POINTER, DIMENSION(:,:) :: icof 152 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: idata 153 153 !!---------------------------------------------------------------------- 154 154 ! 155 155 CALL wrk_alloc( jpi , jpj , icof ) 156 CALL wrk_alloc( jpidta, jpjdta, idata )157 156 ! 158 157 IF(lwp) WRITE(numout,*) … … 234 233 ! ===================== equatorial strip (20N-20S) defined at t-points 235 234 235 ALLOCATE( idata(jpidta,jpjdta), STAT=ierror ) 236 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'ldf_dyn_c2d_orca: unable to allocate idata array' ) 237 ! 236 238 CALL ctl_opn( inum, 'ahmcoef', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 237 239 READ(inum,9101) clexp, iim, ijm … … 269 271 9201 FORMAT(3x,13(i3,12x)) 270 272 9202 FORMAT(i3,41i3) 271 273 274 DEALLOCATE(idata) 272 275 273 276 ! Set ahm1 and ahm2 ( T- and F- points) (used for laplacian operator) … … 346 349 ! 347 350 CALL wrk_dealloc( jpi , jpj , icof ) 348 CALL wrk_dealloc( jpidta, jpjdta, idata )349 351 ! 350 352 END SUBROUTINE ldf_dyn_c2d_orca … … 374 376 INTEGER :: iim, ijm 375 377 INTEGER :: ifreq, il1, il2, ij, ii 376 INTEGER :: ijpt0,ijpt1 378 INTEGER :: ijpt0,ijpt1, ierror 377 379 REAL(wp) :: zahmeq, zcoft, zcoff, zmsk, zam20s 378 380 CHARACTER (len=15) :: clexp 379 INTEGER, POINTER, DIMENSION(:,:) :: icof380 INTEGER, POINTER, DIMENSION(:,:) :: idata381 INTEGER, POINTER, DIMENSION(:,:) :: icof 382 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: idata 381 383 !!---------------------------------------------------------------------- 382 384 ! 383 385 CALL wrk_alloc( jpi , jpj , icof ) 384 CALL wrk_alloc( jpidta, jpjdta, idata )385 386 ! 386 387 … … 464 465 ! ===================== equatorial strip (20N-20S) defined at t-points 465 466 467 ALLOCATE( idata(jpidta,jpjdta), STAT=ierror ) 468 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'ldf_dyn_c2d_orca_R1: unable to allocate idata array' ) 469 ! 466 470 CALL ctl_opn( inum, 'ahmcoef', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 467 471 & 1, numout, lwp ) … … 501 505 9201 FORMAT(3x,13(i3,12x)) 502 506 9202 FORMAT(i3,41i3) 503 507 508 DEALLOCATE(idata) 504 509 505 510 ! Set ahm1 and ahm2 ( T- and F- points) (used for laplacian operator) … … 583 588 ! 584 589 CALL wrk_dealloc( jpi , jpj , icof ) 585 CALL wrk_dealloc( jpidta, jpjdta, idata )586 590 ! 587 591 END SUBROUTINE ldf_dyn_c2d_orca_R1
Note: See TracChangeset
for help on using the changeset viewer.