- Timestamp:
- 2019-11-26T16:06:55+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo_TEST_MERGE/src/OCE/SBC/sbccpl.F90
r11536 r11970 36 36 USE eosbn2 ! 37 37 USE sbcrnf , ONLY : l_rnfcpl 38 USE sbcisf , ONLY : l_isfcpl38 USE isf , ONLY : ln_isf, l_isfoasis, fwfisf_oasis 39 39 #if defined key_cice 40 40 USE ice_domain_size, only: ncat … … 474 474 srcv(jpr_icb)%clname = 'OIceberg' ; IF( TRIM( sn_rcv_icb%cldes) == 'coupled' ) srcv(jpr_icb)%laction = .TRUE. 475 475 476 IF( srcv(jpr_isf)%laction .AND. ln_isf) THEN477 l_isf cpl = .TRUE. ! -> no need to read isf in sbcisf476 IF( srcv(jpr_isf)%laction ) THEN 477 l_isfoasis = .TRUE. ! -> isf fwf comes from oasis 478 478 IF(lwp) WRITE(numout,*) 479 479 IF(lwp) WRITE(numout,*) ' iceshelf received from oasis ' 480 CALL ctl_stop('STOP','not coded') 480 481 ENDIF 481 482 ! … … 1405 1406 rnf(:,:) = rnf(:,:) + fwficb(:,:) ! iceberg added to runfofs 1406 1407 ENDIF 1407 IF( srcv(jpr_isf)%laction ) fwfisf(:,:) = - frcv(jpr_isf)%z3(:,:,1) ! fresh water flux from the isf (fwfisf <0 mean melting) 1408 ! 1409 ! ice shelf fwf 1410 IF( srcv(jpr_isf)%laction ) THEN 1411 fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) ! fresh water flux from the isf (fwfisf <0 mean melting) 1412 END IF 1408 1413 1409 1414 IF( ln_mixcpl ) THEN ; emp(:,:) = emp(:,:) * xcplmask(:,:,0) + zemp(:,:) * zmsk(:,:) … … 1708 1713 ENDIF 1709 1714 IF( srcv(jpr_isf)%laction ) THEN ! iceshelf (fwfisf <0 mean melting) 1710 fwfisf (:,:) = - frcv(jpr_isf)%z3(:,:,1)1715 fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) 1711 1716 ENDIF 1712 1717 … … 1747 1752 ENDIF 1748 1753 IF( srcv(jpr_isf)%laction ) THEN ! iceshelf (fwfisf <0 mean melting) 1749 fwfisf (:,:) = - frcv(jpr_isf)%z3(:,:,1)1754 fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) 1750 1755 ENDIF 1751 1756 !
Note: See TracChangeset
for help on using the changeset viewer.