- Timestamp:
- 2017-12-14T12:16:33+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r9030 r9039 422 422 !!---------------------------------------------------------------------- 423 423 ! 424 IF( ln_wd_il ) CALL wrk_alloc( jpi,jpj, zcpx, zcpy)424 IF( ln_wd_il ) ALLOCATE(zcpx(jpi,jpj), zcpy(jpi,jpj)) 425 425 ! 426 426 IF( kt == nit000 ) THEN … … 536 536 END DO 537 537 ! 538 IF( ln_wd_il ) 538 IF( ln_wd_il ) DEALLOCATE( zcpx , zcpy ) 539 539 ! 540 540 END SUBROUTINE hpg_sco
Note: See TracChangeset
for help on using the changeset viewer.