New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2645 – NEMO

Changeset 2645


Ignore:
Timestamp:
2011-03-03T11:14:19+01:00 (12 years ago)
Author:
gm
Message:

dynamic mem: #785 ; correct small bug in dtatem & dtasal ierr3 not initialized, ierr2 should be set to 0

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  
    9292                                   ! Allocate salinity data array  
    9393                                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' ) 
    9595                                   ! Allocate sf_tem structure 
     96                                ierr2 = 0 
    9697                                ALLOCATE( sf_sal(1)                    , STAT=ierr0 ) 
    9798                                ALLOCATE( sf_sal(1)%fnow(jpi,jpj,jpk)  , STAT=ierr1 ) 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtatem.F90

    r2639 r2645  
    9999                                   ! Allocate temperature data array  
    100100                                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' ) 
    102102                                   ! 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' ) 
    107108         !                         ! fill sf_tem with sn_tem and control print 
    108109         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.