Changeset 3044 for branches/2011/dev_NOC_2011_MERGE/NEMOGCM/NEMO
- Timestamp:
- 2011-11-04T16:49:50+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NOC_2011_MERGE/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_lap.F90
r2715 r3044 82 82 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ ' 83 83 ! 84 ALLOCATE( e1ur(jpi,jpj), e2vr(jpi,jpj), STAT=ierr ) 85 IF( lk_mpp ) CALL mpp_sum( ierr ) 86 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'tra_ldf_lap : unable to allocate arrays' ) 87 ! 88 e1ur(:,:) = e2u(:,:) / e1u(:,:) 89 e2vr(:,:) = e1v(:,:) / e2v(:,:) 84 IF( .NOT. ALLOCATED( e1ur ) ) THEN 85 ! This routine may be called for both active and passive tracers. 86 ! Allocate and set saved arrays on first call only. 87 ALLOCATE( e1ur(jpi,jpj), e2vr(jpi,jpj), STAT=ierr ) 88 IF( lk_mpp ) CALL mpp_sum( ierr ) 89 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'tra_ldf_lap : unable to allocate arrays' ) 90 ! 91 e1ur(:,:) = e2u(:,:) / e1u(:,:) 92 e2vr(:,:) = e1v(:,:) / e2v(:,:) 93 ENDIF 90 94 ENDIF 91 95
Note: See TracChangeset
for help on using the changeset viewer.