Changeset 8037 for branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2017-05-17T19:56:19+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r6500 r8037 56 56 fresh_ai,fhocn_ai,fswthru_ai,frzmlt, & 57 57 flatn_f,fsurfn_f,fcondtopn_f, & 58 daice_da,fresh_da,fsalt_da, & 58 59 uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl, & 59 60 swvdr,swvdf,swidr,swidf,Tf, & … … 301 302 302 303 CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 ) 304 305 ! Initialize fresh water and salt fluxes from data assim 306 ! and data assimilation index to cice 307 nfresh_da(:,:) = 0.0 308 nfsalt_da(:,:) = 0.0 309 ndaice_da(:,:) = 0.0 303 310 ! 304 311 IF( nn_timing == 1 ) CALL timing_stop('cice_sbc_init') … … 450 457 ENDIF 451 458 459 #if defined key_asminc 460 !Ice concentration change (from assimilation) 461 ztmp(:,:)=ndaice_da(:,:)*tmask(:,:,1) 462 Call nemo2cice(ztmp,daice_da,'T', 1. ) 463 #endif 464 452 465 ! Snowfall 453 466 ! Ensure fsnow is positive (as in CICE routine prepare_forcing) … … 712 725 snwice_fmass (:,:) = ( snwice_mass(:,:) - snwice_mass_b(:,:) ) / dt 713 726 ENDIF 727 728 #if defined key_asminc 729 ! Import fresh water and salt flux due to seaice da 730 CALL cice2nemo(fresh_da, nfresh_da,'T',1.0) 731 CALL cice2nemo(fsalt_da, nfsalt_da,'T',1.0) 732 #endif 714 733 715 734 ! Release work space
Note: See TracChangeset
for help on using the changeset viewer.