- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/P2Z/p2zbio.F90
r10068 r10170 341 341 ! 342 342 IF( lk_iomput ) THEN 343 CALL lbc_lnk( zw2d(:,:,:),'T', 1. )344 CALL lbc_lnk_multi( zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. )343 CALL lbc_lnk( 'p2zbio', zw2d(:,:,:),'T', 1. ) 344 CALL lbc_lnk_multi( 'p2zbio', zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. ) 345 345 ! Save diagnostics 346 346 CALL iom_put( "TNO3PHY", zw2d(:,:,1) ) -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/P2Z/p2zexp.F90
r10068 r10170 113 113 END DO 114 114 115 CALL lbc_lnk( sedpocn, 'T', 1. )115 CALL lbc_lnk( 'p2zexp', sedpocn, 'T', 1. ) 116 116 117 117 ! Oa & Ek: diagnostics depending on jpdia2d ! left as example … … 229 229 END DO 230 230 END DO 231 CALL lbc_lnk( cmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)231 CALL lbc_lnk( 'p2zexp', cmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged) 232 232 areacot = glob_sum( e1e2t(:,:) * cmask(:,:) ) 233 233 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/P4Z/p4zsbc.F90
r10127 r10170 449 449 END DO 450 450 ! 451 CALL lbc_lnk( zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)451 CALL lbc_lnk( 'p4zsbc', zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged) 452 452 ! 453 453 DO jk = 1, jpk
Note: See TracChangeset
for help on using the changeset viewer.