Changeset 2645 for branches/dev_r2586_dynamic_mem
- Timestamp:
- 2011-03-03T11:14:19+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtasal.F90
r2639 r2645 92 92 ! Allocate salinity data array 93 93 ALLOCATE( s_dta(jpi,jpj,jpk) , STAT=ierr ) 94 IF( ierr > 0 )CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate s_dta array' )94 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate s_dta array' ) 95 95 ! Allocate sf_tem structure 96 ierr2 = 0 96 97 ALLOCATE( sf_sal(1) , STAT=ierr0 ) 97 98 ALLOCATE( sf_sal(1)%fnow(jpi,jpj,jpk) , STAT=ierr1 ) -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtatem.F90
r2639 r2645 99 99 ! Allocate temperature data array 100 100 ALLOCATE( t_dta(jpi,jpj,jpk) , STAT=ierr ) 101 IF( ierr > 0 )CALL ctl_stop( 'STOP', 'dta_tem: unable to allocate t_dta array' )101 IF( ierr > 0 ) CALL ctl_stop( 'STOP', 'dta_tem: unable to allocate t_dta array' ) 102 102 ! Allocate sf_tem structure 103 ALLOCATE( sf_tem(1) , STAT=ierr1 ) 104 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk) , STAT=ierr2 ) 105 IF( sn_tem%ln_tint ) ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpk,2), STAT=ierr3 ) 106 IF( ierr0+ierr1+ierr2+ierr3 > 0 ) CALL ctl_stop( 'STOP', 'dta_tem: unable to allocate sf_tem structure' ) 103 ierr2 = 0 104 ALLOCATE( sf_tem(1) , STAT=ierr0 ) 105 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk) , STAT=ierr1 ) 106 IF( sn_tem%ln_tint ) ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpk,2), STAT=ierr2 ) 107 IF( ierr0+ierr1+ierr2 > 0 ) CALL ctl_stop( 'STOP', 'dta_tem: unable to allocate sf_tem structure' ) 107 108 ! ! fill sf_tem with sn_tem and control print 108 109 CALL fld_fill( sf_tem, (/ sn_tem /), cn_dir, 'dta_tem', 'Temperature data', 'namdta_tem' )
Note: See TracChangeset
for help on using the changeset viewer.