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 9970 for branches/UKMO/dev_merge_2017_CICE_interface_SI3_JGLR/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90 – NEMO

Ignore:
Timestamp:
2018-07-19T10:41:25+02:00 (4 years ago)
Author:
jamrae
Message:

Merged in Tim Graham's latest updates to dev_merge_2017_CICE_interface.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_merge_2017_CICE_interface_SI3_JGLR/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r9942 r9970  
    165165               ndaice_da(jpi,jpj)    , nfresh_da(jpi,jpj)    , nfsalt_da(jpi,jpj)    , & 
    166166#endif 
    167                sstfrz(jpi,jpj)       , STAT= ierr(2) ) 
     167               sstfrz(jpi,jpj)       , qsr_ice_tr(jpi,jpj,jpl), STAT= ierr(2) ) 
    168168      IF( ln_cpl )   ALLOCATE( u_ice(jpi,jpj)        , t1_ice (jpi,jpj,jpl)    , & 
    169169         &                     v_ice(jpi,jpj)        , alb_ice(jpi,jpj,1)      , & 
    170          &                     emp_ice(jpi,jpj)      , qns_ice(jpi,jpj,1)      , dqns_ice(jpi,jpj,1)   , & 
     170         &                     emp_ice(jpi,jpj)      , qns_ice(jpi,jpj,1)      , dqns_ice(jpi,jpj,jpl)   , & 
    171171         &                     a_ip(jpi,jpj,jpl)      , v_ip(jpi,jpj,jpl)     , tsfc_ice(jpi,jpj,jpl) , & 
    172172         &                     cnd_ice(jpi,jpj,jpl) ,    STAT=ierr(3) ) 
Note: See TracChangeset for help on using the changeset viewer.