- Timestamp:
- 2019-12-05T13:18:21+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbccpl.F90
r11822 r12068 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 ! … … 1406 1407 rnf(:,:) = rnf(:,:) + fwficb(:,:) ! iceberg added to runfofs 1407 1408 ENDIF 1408 IF( srcv(jpr_isf)%laction ) fwfisf(:,:) = - frcv(jpr_isf)%z3(:,:,1) ! fresh water flux from the isf (fwfisf <0 mean melting) 1409 ! 1410 ! ice shelf fwf 1411 IF( srcv(jpr_isf)%laction ) THEN 1412 fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) ! fresh water flux from the isf (fwfisf <0 mean melting) 1413 END IF 1409 1414 1410 1415 IF( ln_mixcpl ) THEN ; emp(:,:) = emp(:,:) * xcplmask(:,:,0) + zemp(:,:) * zmsk(:,:) … … 1709 1714 ENDIF 1710 1715 IF( srcv(jpr_isf)%laction ) THEN ! iceshelf (fwfisf <0 mean melting) 1711 fwfisf (:,:) = - frcv(jpr_isf)%z3(:,:,1)1716 fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) 1712 1717 ENDIF 1713 1718 … … 1748 1753 ENDIF 1749 1754 IF( srcv(jpr_isf)%laction ) THEN ! iceshelf (fwfisf <0 mean melting) 1750 fwfisf (:,:) = - frcv(jpr_isf)%z3(:,:,1)1755 fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) 1751 1756 ENDIF 1752 1757 !
Note: See TracChangeset
for help on using the changeset viewer.