Changeset 11892 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/BDY/bdydta.F90
- Timestamp:
- 2019-11-13T09:44:18+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/BDY/bdydta.F90
r11831 r11892 615 615 ENDIF 616 616 617 IF( llneed ) THEN! dta_bdy(jbdy)%xxx will be needed617 IF( llneed .AND. iszdim > 0 ) THEN ! dta_bdy(jbdy)%xxx will be needed 618 618 ! ! -> must be associated with an allocated target 619 619 ALLOCATE( bf_alias(1)%fnow( iszdim, 1, ipk ) ) ! allocate the target
Note: See TracChangeset
for help on using the changeset viewer.