- Timestamp:
- 2015-07-21T13:25:36+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Property svn:keywords set to Id
r5133 r5621 96 96 # include "domzgr_substitute.h90" 97 97 98 !! $Id$ 98 99 CONTAINS 99 100 … … 137 138 IF ( ksbc == jp_flx ) THEN 138 139 CALL cice_sbc_force(kt) 139 ELSE IF ( ksbc == jp_ cpl ) THEN140 ELSE IF ( ksbc == jp_purecpl ) THEN 140 141 CALL sbc_cpl_ice_flx( 1.0-fr_i ) 141 142 ENDIF … … 145 146 CALL cice_sbc_out ( kt, ksbc ) 146 147 147 IF ( ksbc == jp_ cpl ) CALL cice_sbc_hadgam(kt+1)148 IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(kt+1) 148 149 149 150 ENDIF ! End sea-ice time step only … … 186 187 187 188 ! Do some CICE consistency checks 188 IF ( (ksbc == jp_flx) .OR. (ksbc == jp_ cpl) ) THEN189 IF ( (ksbc == jp_flx) .OR. (ksbc == jp_purecpl) ) THEN 189 190 IF ( calc_strair .OR. calc_Tsfc ) THEN 190 191 CALL ctl_stop( 'STOP', 'cice_sbc_init : Forcing option requires calc_strair=F and calc_Tsfc=F in ice_in' ) … … 211 212 212 213 CALL cice2nemo(aice,fr_i, 'T', 1. ) 213 IF ( (ksbc == jp_flx) .OR. (ksbc == jp_ cpl) ) THEN214 IF ( (ksbc == jp_flx) .OR. (ksbc == jp_purecpl) ) THEN 214 215 DO jl=1,ncat 215 216 CALL cice2nemo(aicen(:,:,jl,:),a_i(:,:,jl), 'T', 1. ) … … 318 319 ! forced and coupled case 319 320 320 IF ( (ksbc == jp_flx).OR.(ksbc == jp_ cpl) ) THEN321 IF ( (ksbc == jp_flx).OR.(ksbc == jp_purecpl) ) THEN 321 322 322 323 ztmpn(:,:,:)=0.0 … … 508 509 CALL nemo2cice(ztmp,ss_tlty,'F', -1. ) 509 510 510 CALL wrk_dealloc( jpi,jpj, ztmp )511 CALL wrk_dealloc( jpi,jpj, ztmp, zpice ) 511 512 CALL wrk_dealloc( jpi,jpj,ncat, ztmpn ) 512 513 ! … … 586 587 ELSE IF (ksbc == jp_core) THEN 587 588 emp(:,:) = (1.0-fr_i(:,:))*emp(:,:) 588 ELSE IF (ksbc == jp_ cpl) THEN589 ELSE IF (ksbc == jp_purecpl) THEN 589 590 ! emp_tot is set in sbc_cpl_ice_flx (called from cice_sbc_in above) 590 591 ! This is currently as required with the coupling fields from the UM atmosphere … … 622 623 ENDIF 623 624 ! Take into account snow melting except for fully coupled when already in qns_tot 624 IF (ksbc == jp_ cpl) THEN625 IF (ksbc == jp_purecpl) THEN 625 626 qsr(:,:)= qsr_tot(:,:) 626 627 qns(:,:)= qns_tot(:,:) … … 657 658 658 659 CALL cice2nemo(aice,fr_i,'T', 1. ) 659 IF ( (ksbc == jp_flx).OR.(ksbc == jp_ cpl) ) THEN660 IF ( (ksbc == jp_flx).OR.(ksbc == jp_purecpl) ) THEN 660 661 DO jl=1,ncat 661 662 CALL cice2nemo(aicen(:,:,jl,:),a_i(:,:,jl), 'T', 1. ) … … 1095 1096 !! Default option Dummy module NO CICE sea-ice model 1096 1097 !!---------------------------------------------------------------------- 1098 !! $Id$ 1097 1099 CONTAINS 1098 1100
Note: See TracChangeset
for help on using the changeset viewer.