Changeset 13564 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_adv_pra.F90
- Timestamp:
- 2020-10-05T15:33:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_adv_pra.F90
r13554 r13564 289 289 CALL adv_x( zdt , zudy , 0._wp , zarea , z0vl , sxvl , sxxvl , syvl , syyvl , sxyvl ) 290 290 ENDIF 291 ENDIF291 ENDIF 292 292 ! 293 293 ENDIF 294 294 295 ! --- Lateral boundary conditions --- ! 296 ! caution: for gradients (sx and sy) the sign changes 297 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0ice , 'T', 1._wp, sxice , 'T', -1._wp, syice , 'T', -1._wp & ! ice volume 298 & , sxxice, 'T', 1._wp, syyice, 'T', 1._wp, sxyice, 'T', 1._wp & 299 & , z0snw , 'T', 1._wp, sxsn , 'T', -1._wp, sysn , 'T', -1._wp & ! snw volume 300 & , sxxsn , 'T', 1._wp, syysn , 'T', 1._wp, sxysn , 'T', 1._wp ) 301 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0smi , 'T', 1._wp, sxsal , 'T', -1._wp, sysal , 'T', -1._wp & ! ice salinity 302 & , sxxsal, 'T', 1._wp, syysal, 'T', 1._wp, sxysal, 'T', 1._wp & 303 & , z0ai , 'T', 1._wp, sxa , 'T', -1._wp, sya , 'T', -1._wp & ! ice concentration 304 & , sxxa , 'T', 1._wp, syya , 'T', 1._wp, sxya , 'T', 1._wp ) 305 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0oi , 'T', 1._wp, sxage , 'T', -1._wp, syage , 'T', -1._wp & ! ice age 306 & , sxxage, 'T', 1._wp, syyage, 'T', 1._wp, sxyage, 'T', 1._wp ) 307 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0es , 'T', 1._wp, sxc0 , 'T', -1._wp, syc0 , 'T', -1._wp & ! snw enthalpy 308 & , sxxc0 , 'T', 1._wp, syyc0 , 'T', 1._wp, sxyc0 , 'T', 1._wp ) 309 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0ei , 'T', 1._wp, sxe , 'T', -1._wp, sye , 'T', -1._wp & ! ice enthalpy 310 & , sxxe , 'T', 1._wp, syye , 'T', 1._wp, sxye , 'T', 1._wp ) 311 IF ( ln_pnd_LEV ) THEN 312 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0ap , 'T', 1._wp, sxap , 'T', -1._wp, syap , 'T', -1._wp & ! melt pond fraction 313 & , sxxap, 'T', 1._wp, syyap, 'T', 1._wp, sxyap, 'T', 1._wp & 314 & , z0vp , 'T', 1._wp, sxvp , 'T', -1._wp, syvp , 'T', -1._wp & ! melt pond volume 315 & , sxxvp, 'T', 1._wp, syyvp, 'T', 1._wp, sxyvp, 'T', 1._wp ) 316 IF ( ln_pnd_lids ) THEN 317 CALL lbc_lnk_multi( 'icedyn_adv_pra', z0vl ,'T', 1._wp, sxvl ,'T', -1._wp, syvl ,'T', -1._wp & ! melt pond lid volume 318 & , sxxvl,'T', 1._wp, syyvl,'T', 1._wp, sxyvl,'T', 1._wp ) 319 ENDIF 320 ENDIF 321 295 322 ! --- Recover the properties from their contents --- ! 296 323 DO jl = 1, jpl … … 500 527 501 528 END DO 502 503 !-- Lateral boundary conditions504 IF( NINT( pcrh ) == 0 ) THEN ! adv_x is called after adv_y505 CALL lbc_lnk_multi( 'icedyn_adv_pra', psm(:,:,1:jcat) , 'T', 1., ps0 , 'T', 1. &506 & , psx , 'T', -1., psy , 'T', -1. & ! caution gradient ==> the sign changes507 & , psxx , 'T', 1., psyy, 'T', 1. , psxy, 'T', 1. )508 ENDIF509 529 ! 510 530 END SUBROUTINE adv_x … … 670 690 671 691 END DO 672 673 !-- Lateral boundary conditions674 IF( NINT( pcrh ) == 0 ) THEN ! adv_y is called after adv_x675 CALL lbc_lnk_multi( 'icedyn_adv_pra', psm(:,:,1:jcat) , 'T', 1., ps0 , 'T', 1. &676 & , psx , 'T', -1., psy , 'T', -1. & ! caution gradient ==> the sign changes677 & , psxx , 'T', 1., psyy, 'T', 1. , psxy, 'T', 1. )678 ENDIF679 692 ! 680 693 END SUBROUTINE adv_y
Note: See TracChangeset
for help on using the changeset viewer.