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

Changeset 3903


Ignore:
Timestamp:
2013-05-17T17:09:19+02:00 (11 years ago)
Author:
clevy
Message:

Bugfix for ORCA2_SAS_LIM reference configuration, see ticket#1095

Location:
trunk/NEMOGCM/NEMO/SAS_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r3769 r3903  
    382382      USE diawri    , ONLY: dia_wri_alloc 
    383383      USE dom_oce   , ONLY: dom_oce_alloc 
    384       ! 
    385       INTEGER :: ierr 
     384      USE oce       , ONLY : sshn, sshb, snwice_mass, snwice_mass_b, snwice_fmass  
     385      ! 
     386      INTEGER :: ierr,ierr4 
    386387      !!---------------------------------------------------------------------- 
    387388      ! 
     
    389390      ierr = ierr + dom_oce_alloc   ()          ! ocean domain 
    390391      ierr = ierr + lib_mpp_alloc   (numout)    ! mpp exchanges 
     392      ALLOCATE( snwice_mass(jpi,jpj)  , snwice_mass_b(jpi,jpj),             & 
     393         &      snwice_fmass(jpi,jpj), STAT= ierr4 ) 
     394      ierr = ierr + ierr4 
    391395      ! 
    392396      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
  • trunk/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r3873 r3903  
    279279      ! so allocate enough of arrays to use 
    280280      ! 
     281      ierr3 = 0 
    281282      jpm = MAX(jp_tem, jp_sal) 
    282283      ALLOCATE( tsn(jpi,jpj,1,jpm), STAT=ierr0 ) 
Note: See TracChangeset for help on using the changeset viewer.