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

Changeset 2235


Ignore:
Timestamp:
2010-10-12T20:34:50+02:00 (13 years ago)
Author:
cbricaud
Message:

correction to avoid segmentation fault

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r2191_3partymerge2010/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r2229 r2235  
    268268         ENDIF 
    269269         ALLOCATE( sf_rnf(1)%fnow(jpi,jpj,1)   ) 
    270          IF( sf_rnf(1)%ln_tint ) ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) ) 
     270         IF( sn_rnf%ln_tint ) ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) ) 
    271271         !                                          ! fill sf_rnf with the namelist (sn_rnf) and control print 
    272272         CALL fld_fill( sf_rnf, (/ sn_rnf /), cn_dir, 'sbc_rnf_init', 'read runoffs data', 'namsbc_rnf' ) 
     
    280280            ENDIF 
    281281            ALLOCATE( sf_t_rnf(1)%fnow(jpi,jpj,1)   ) 
    282             IF( sf_t_rnf(1)%ln_tint ) ALLOCATE( sf_t_rnf(1)%fdta(jpi,jpj,1,2) ) 
     282            IF( sn_t_rnf%ln_tint ) ALLOCATE( sf_t_rnf(1)%fdta(jpi,jpj,1,2) ) 
    283283            CALL fld_fill (sf_t_rnf, (/ sn_t_rnf /), cn_dir, 'sbc_rnf_init', 'read runoff temperature data', 'namsbc_rnf' )   
    284284         ENDIF 
     
    292292            ENDIF 
    293293            ALLOCATE( sf_s_rnf(1)%fnow(jpi,jpj,1)   ) 
    294             IF( sf_s_rnf(1)%ln_tint ) ALLOCATE( sf_s_rnf(1)%fdta(jpi,jpj,1,2) ) 
     294            IF( sn_s_rnf%ln_tint ) ALLOCATE( sf_s_rnf(1)%fdta(jpi,jpj,1,2) ) 
    295295            CALL fld_fill (sf_s_rnf, (/ sn_s_rnf /), cn_dir, 'sbc_rnf_init', 'read runoff salinity data', 'namsbc_rnf' )   
    296296         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.