In LOBSTER, lbc_lnk is called for the prognostic variables in the uppermost layer only:
LOBSTER/trcbio.F90: CALL lbc_lnk( zw2d(:,:,jl),'T', 1. )
LOBSTER/trcbio.F90: CALL lbc_lnk( zw3d(:,:,:,jl),'T', 1. )
LOBSTER/trcbio.F90: CALL lbc_lnk( trbio(:,:,1,jl),'T', 1. )
LOBSTER/trcexp.F90: CALL lbc_lnk( sedpocn, 'T', 1. )
LOBSTER/trcini_lobster.F90: CALL lbc_lnk( cmask, 'T', 1. )
While in PISCES, it is called for the entire water column:
PISCES/p4zsed.F90: CALL lbc_lnk( zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)
PISCES/p4zsed.F90.v1: CALL lbc_lnk( zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)
PISCES/p4zsed.F90.v2: CALL lbc_lnk( zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)
PISCES/trcsms_pisces.F90: CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )
PISCES/trcsms_pisces.F90: CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )
PISCES/trcsms_pisces.F90: CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. )
PISCES/trcsms_pisces.F90: CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )
While CFC and C14b do not use "lbc_lnk" subroutine.
0 件のコメント:
コメントを投稿