- Timestamp:
- 2012-05-25T18:43:49+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r3294 r3402 107 107 !! ** Action : - time evolution of the CICE sea-ice model 108 108 !! - update all sbc variables below sea-ice: 109 !! utau, vtau, qns , qsr, emp , emps109 !! utau, vtau, qns , qsr, emp , sfx 110 110 !!--------------------------------------------------------------------- 111 111 INTEGER, INTENT(in) :: kt ! ocean time step … … 480 480 ! salinity calculation 481 481 CALL cice2nemo(fresh_gbm,ztmp,'T', 1. ) 482 emps(:,:)=emp(:,:)-ztmp(:,:)482 sfx (:,:)=emp(:,:)-ztmp(:,:) 483 483 ! Note the 1000.0 is to convert from kg salt to g salt (needed for PSU) 484 484 CALL cice2nemo(fsalt_gbm,ztmp,'T', 1. ) … … 486 486 DO ji=1,jpi 487 487 IF (sss_m(ji,jj).gt.0.0) THEN 488 emps(ji,jj)=emps(ji,jj)+ztmp(ji,jj)*1000.0/sss_m(ji,jj)488 sfx (ji,jj)=sfx (ji,jj)+ztmp(ji,jj)*1000.0/sss_m(ji,jj) 489 489 ENDIF 490 490 ENDDO … … 494 494 ! weight of the precip will affect the free surface even if it falls on the ice 495 495 ! (same to the argument that freezing / melting of ice doesn't change the free surface) 496 ! Sublimation from the ice is treated in a similar way (included in emp but not emps)496 ! Sublimation from the ice is treated in a similar way (included in emp but not sfx ) 497 497 ! 498 498 ! This should not be done in the variable volume case … … 512 512 513 513 CALL lbc_lnk( emp , 'T', 1. ) 514 CALL lbc_lnk( emps, 'T', 1. )514 CALL lbc_lnk( sfx , 'T', 1. ) 515 515 516 516 ! Solar penetrative radiation and non solar surface heat flux
Note: See TracChangeset
for help on using the changeset viewer.