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

Ignore:
Timestamp:
2017-12-05T14:26:11+01:00 (6 years ago)
Author:
hadlh
Message:

Removed unecessary print statements and stopped the passing back of salf and freshwater fluxes as these are output in CICE now.

File:
1 edited

Legend:

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

    r8618 r8899  
    7373   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   botmelt            !: category botmelt 
    7474   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   ndaice_da        !: NEMO ice conc rate of change 
    75    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   nfresh_da         !: NEMO fresh water flux to ocean due to data assim  
    76    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   nfsalt_da          !: NEMO salt flux to ocean due to data assim  
    7775 
    7876#if defined  key_lim3 
     
    165163                ss_iov(jpi,jpj)       , fr_iu(jpi,jpj)        , fr_iv(jpi,jpj)        , & 
    166164                a_i(jpi,jpj,ncat)     , topmelt(jpi,jpj,ncat) , botmelt(jpi,jpj,ncat) , & 
    167                 sstfrz(jpi,jpj)       , ndaice_da(jpi,jpj), nfresh_da(jpi,jpj), & 
    168       nfsalt_da(jpi,jpj), STAT= ierr(1) ) 
     165                sstfrz(jpi,jpj)       , ndaice_da(jpi,jpj), STAT= ierr(1) ) 
    169166   ! Alex West: Allocating tn_ice with 5 categories.  When NEMO is used with CICE, this variable 
    170167   ! represents top layer ice temperature, which is multi-category. 
Note: See TracChangeset for help on using the changeset viewer.