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 2639 – NEMO

Changeset 2639


Ignore:
Timestamp:
2011-03-02T19:23:26+01:00 (12 years ago)
Author:
cetlod
Message:

re-introduce missing allocated array

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtasal.F90

    r2636 r2639  
    5656      ! 
    5757      INTEGER ::   ji, jj, jk, jl, jkk       ! local loop indicies 
    58       INTEGER ::   ik, ierr0, ierr1, ierr2   ! local integers 
     58      INTEGER ::   ik, ierr, ierr0, ierr1, ierr2   ! local integers 
    5959#if defined key_tradmp 
    6060      INTEGER ::   il0, il1, ii0, ii1, ij0, ij1   ! local integers 
     
    8989            WRITE(numout,*) '~~~~~~~ ' 
    9090         ENDIF 
     91 
     92                                   ! Allocate salinity data array  
     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' ) 
     95                                   ! Allocate sf_tem structure 
    9196                                ALLOCATE( sf_sal(1)                    , STAT=ierr0 ) 
    9297                                ALLOCATE( sf_sal(1)%fnow(jpi,jpj,jpk)  , STAT=ierr1 ) 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DTA/dtatem.F90

    r2636 r2639  
    6262      ! 
    6363      INTEGER ::   ji, jj, jk, jl, jkk       ! dummy loop indicies 
    64       INTEGER ::   ik, ierr0, ierr1, ierr2   ! local integers 
     64      INTEGER ::   ik, ierr, ierr0, ierr1, ierr2   ! local integers 
    6565#if defined key_tradmp 
    6666      INTEGER ::   il0, il1, ii0, ii1, ij0, ij1   ! local integers 
     
    9696            WRITE(numout,*) '~~~~~~~ ' 
    9797         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' ) 
    102107         !                         ! fill sf_tem with sn_tem and control print 
    103108         CALL fld_fill( sf_tem, (/ sn_tem /), cn_dir, 'dta_tem', 'Temperature data', 'namdta_tem' ) 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r2620 r2639  
    107107         ENDIF 
    108108 
     109         ! Allocate erp and qrp array 
     110         ALLOCATE( qrp(jpi,jpj), erp(jpi,jpj), STAT=ierror ) 
     111         IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp and qrp array' ) 
     112 
    109113         IF( nn_sstr == 1 ) THEN      !* set sf_sst structure & allocate arrays 
    110114            ! 
     
    119123            IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate sf_sst data array' ) 
    120124            ! 
    121             ALLOCATE( qrp(jpi,jpj), STAT=ierror ) 
    122             IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate qrp array' ) 
    123125         ENDIF 
    124126         ! 
     
    135137            IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate sf_sss data array' ) 
    136138            ! 
    137             ALLOCATE( erp(jpi,jpj), STAT=ierror ) 
    138             IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp array' ) 
    139139         ENDIF 
    140140         ! 
Note: See TracChangeset for help on using the changeset viewer.