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 6176 for branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_with_key_asminc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 – NEMO

Ignore:
Timestamp:
2015-12-29T16:06:25+01:00 (8 years ago)
Author:
kingr
Message:

Commented out CICE to NEMO variable which break fcm build

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_with_key_asminc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r6175 r6176  
    5555                sst,sss,uocn,vocn,ss_tltx,ss_tlty,fsalt_ai,      & 
    5656                fresh_ai,fhocn_ai,fswthru_ai,frzmlt,             & 
    57                 daice_da,fresh_da,fsalt_da,                      & 
     57!                daice_da,fresh_da,fsalt_da,                      & 
     58                daice_da,                                        & 
    5859                flatn_f,fsurfn_f,fcondtopn_f,                    & 
    5960                uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   & 
     
    725726      ENDIF 
    726727 
    727 #if defined key_asminc 
     728!#if defined key_asminc 
    728729! Import fresh water and salt flux due to seaice da 
    729       ztmp(:,:)=nfresh_da(:,:)*tmask(:,:,1) 
    730       CALL cice2nemo(fresh_da, ztmp,'T',1.0) 
    731       ztmp(:,:)=nfsalt_da(:,:)*tmask(:,:,1) 
    732       CALL cice2nemo(fsalt_da, ztmp,'T',1.0) 
    733 #endif 
     730!      CALL cice2nemo(fresh_da, nfresh_da,'T',1.0) 
     731!      CALL cice2nemo(fsalt_da, nfsalt_da,'T',1.0) 
     732!#endif 
    734733 
    735734! Release work space 
Note: See TracChangeset for help on using the changeset viewer.