- Timestamp:
- 2011-03-02T19:23:26+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtatem.F90
r2636 r2639 62 62 ! 63 63 INTEGER :: ji, jj, jk, jl, jkk ! dummy loop indicies 64 INTEGER :: ik, ierr 0, ierr1, ierr2 ! local integers64 INTEGER :: ik, ierr, ierr0, ierr1, ierr2 ! local integers 65 65 #if defined key_tradmp 66 66 INTEGER :: il0, il1, ii0, ii1, ij0, ij1 ! local integers … … 96 96 WRITE(numout,*) '~~~~~~~ ' 97 97 ENDIF 98 ALLOCATE( sf_tem(1) , STAT=ierr0 ) 99 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk) , STAT=ierr1 ) 100 IF( sn_tem%ln_tint ) ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpk,2), STAT=ierr2 ) 101 IF( ierr0+ierr1+ierr2 > 0 ) CALL ctl_stop( 'STOP', 'dta_sal: unable to allocate sf_sal structure' ) 98 99 ! Allocate temperature data array 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' ) 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' ) 102 107 ! ! fill sf_tem with sn_tem and control print 103 108 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.