- Timestamp:
- 2014-02-04T13:12:20+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DTA/dtasal.F90
r3211 r4409 96 96 97 97 ! Allocate salinity data array 98 ALLOCATE( s_dta(jpi,jpj,jpk ) , STAT=ierr )98 ALLOCATE( s_dta(jpi,jpj,jpkorig) , STAT=ierr ) 99 99 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate s_dta array' ) 100 100 ! Allocate sf_tem structure 101 101 ierr2 = 0 102 ALLOCATE( sf_sal(1) , STAT=ierr0 )103 ALLOCATE( sf_sal(1)%fnow(jpi,jpj,jpk ) , STAT=ierr1 )104 IF( sn_sal%ln_tint ) ALLOCATE( sf_sal(1)%fdta(jpi,jpj,jpk ,2), STAT=ierr2 )102 ALLOCATE( sf_sal(1) , STAT=ierr0 ) 103 ALLOCATE( sf_sal(1)%fnow(jpi,jpj,jpkorig) , STAT=ierr1 ) 104 IF( sn_sal%ln_tint ) ALLOCATE( sf_sal(1)%fdta(jpi,jpj,jpkorig,2), STAT=ierr2 ) 105 105 IF( ierr0+ierr1+ierr2 > 0 ) CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate sf_sal structure' ) 106 106 ! ! fill sf_sal with sn_sal and control print
Note: See TracChangeset
for help on using the changeset viewer.