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.
#264 (missing allocation of fld structures in sbcblk_core.F90) – NEMO

Opened 16 years ago

Closed 16 years ago

Last modified 8 years ago

#264 closed Bug (invalid)

missing allocation of fld structures in sbcblk_core.F90

Reported by: molines Owned by: rblod
Priority: high Milestone:
Component: OCE Version: v3.0
Severity: Keywords: SBC
Cc:

Description

There are missing allocations in the sbcblk_core.F90 module which causes crashes at
run time. Lines 166-169 in the following code must be added. (jf is aleady declared)

Jean-Marc
PS : by the way : no means to set nemo_v3 version on the trac interface 

    160          ! set sf structure
    161          ALLOCATE( sf(jpfld), STAT=ierror )
    162          IF( ierror > 0 ) THEN
    163             CALL ctl_stop( 'sbc_blk_core: unable to allocate sf structure' )   ;   RETURN
    164          ENDIF
    165
    166          DO jf= 1, jpfld
    167             ALLOCATE( sf(jf)%fnow(jpi,jpj) )
    168             ALLOCATE( sf(jf)%fdta(jpi,jpj,2) )
    169          END DO
    170
    171          ! fill sf with slf_i and control print

Commit History (0)

(No commits)

Change History (5)

comment:1 in reply to: ↑ description Changed 16 years ago by rblod

  • Owner changed from NEMO team to rblod
  • Status changed from new to assigned

Replying to molines:

There are missing allocations in the sbcblk_core.F90 module which causes crashes at
run time. Lines 166-169 in the following code must be added. (jf is aleady declared)

Jean-Marc
PS : by the way : no means to set nemo_v3 version on the trac interface 

    160          ! set sf structure
    161          ALLOCATE( sf(jpfld), STAT=ierror )
    162          IF( ierror > 0 ) THEN
    163             CALL ctl_stop( 'sbc_blk_core: unable to allocate sf structure' )   ;   RETURN
    164          ENDIF
    165
    166          DO jf= 1, jpfld
    167             ALLOCATE( sf(jf)%fnow(jpi,jpj) )
    168             ALLOCATE( sf(jf)%fdta(jpi,jpj,2) )
    169          END DO
    170
    171          ! fill sf with slf_i and control print

I move this to nemo_v3
I'm not sure to understand. It seems to he thre on v3 version :
​http://forge.ipsl.jussieu.fr/nemo/browser/tags/nemo_v3/NEMO/OPA_SRC/SBC/sbcblk_core.F90 around line 153

Rachid

comment:2 Changed 16 years ago by molines

OK Rachid ! Forget about my ticket !
Sorry for the inconvenience !

Jean-Marc

comment:3 Changed 16 years ago by testuser

  • Resolution set to invalid
  • Status changed from assigned to closed

comment:4 Changed 8 years ago by nicolasmartin

  • Milestone New Surface Module deleted

Milestone New Surface Module deleted

comment:5 Changed 8 years ago by nicolasmartin

  • Keywords SBC added; sbcblk_core removed
Note: See TracTickets for help on using tickets.