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

Changeset 9962


Ignore:
Timestamp:
2018-07-18T11:53:34+02:00 (6 years ago)
Author:
frrh
Message:

Correct dimension of qns_ice since this is used in the context of
multi category ice so the third dimension needs to be category number,
not hard wired as 1.

The use of jpl as a surrogate for ncat needs to be reviewed since
jpl and ncat seem to be used interchangebly in declarations, in certain
cases, they are both used in the same ALLOCATE statement for different
arrays of identical size!

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_NIWA_fix_plus/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r9961 r9962  
    180180      IF( ln_cpl )   ALLOCATE( u_ice(jpi,jpj)        , fr1_i0(jpi,jpj)       , tn_ice (jpi,jpj,jpl)  , & 
    181181         &                     v_ice(jpi,jpj)        , fr2_i0(jpi,jpj)       , alb_ice(jpi,jpj,1)    , & 
    182          &                     emp_ice(jpi,jpj)      , qns_ice(jpi,jpj,1)    , dqns_ice(jpi,jpj,1)   , & 
     182         &                     emp_ice(jpi,jpj)      , qns_ice(jpi,jpj,jpl)  , dqns_ice(jpi,jpj,1)   , & 
    183183         &                     a_p(jpi,jpj,jpl)      , ht_p(jpi,jpj,jpl)     , tsfc_ice(jpi,jpj,jpl) , & 
    184184         &                     kn_ice(jpi,jpj,jpl) ,    STAT=ierr(2) ) 
Note: See TracChangeset for help on using the changeset viewer.