Changeset 10386 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_umx.F90
- Timestamp:
- 2018-12-14T11:55:21+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_umx.F90
r10359 r10386 123 123 !---------------! 124 124 DO jt = 1, initad 125 126 l_full_nf_update = .FALSE. ! false: disable full North fold update (performances) 125 127 CALL adv_umx( k_order, kt, 1, zdt, zudy, zvdx, zcu_box, zcv_box, zpato(:,:,1) ) ! Open water area 126 CALL lbc_lnk( 'icedyn_adv_umx', zpato, 'T', 1. )127 128 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pa_i(:,:,:) ) ! Ice area 128 129 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pv_i(:,:,:) ) ! Ice volume … … 132 133 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pe_i(:,:,jk,:) ) ! Ice heat content 133 134 END DO 134 CALL lbc_lnk( 'icedyn_adv_umx', pe_i, 'T', 1. )135 136 135 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pv_s(:,:,:) ) ! Snow volume 137 136 DO jk = 1, nlay_s 138 137 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pe_s(:,:,jk,:) ) ! Snow heat content 139 138 END DO 140 CALL lbc_lnk( 'icedyn_adv_umx', pe_s, 'T', 1. )141 142 139 IF ( ln_pnd_H12 ) THEN 143 140 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pa_ip(:,:,:) ) ! Melt pond fraction 144 141 CALL adv_umx( k_order, kt, jpl, zdt, zudy, zvdx, zcu_box, zcv_box, pv_ip(:,:,:) ) ! Melt pond volume 145 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i, 'T', 1., pv_i, 'T', 1., psv_i, 'T', 1., & 142 ENDIF 143 144 l_full_nf_update = jt == initad ! true: enable full North fold update (performances) when exiting the loop 145 CALL lbc_lnk( 'icedyn_adv_umx', zpato, 'T', 1. ) 146 CALL lbc_lnk( 'icedyn_adv_umx', pe_i, 'T', 1. ) 147 CALL lbc_lnk( 'icedyn_adv_umx', pe_s, 'T', 1. ) 148 IF ( ln_pnd_H12 ) THEN 149 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i, 'T', 1., pv_i, 'T', 1., psv_i, 'T', 1., & 146 150 & poa_i, 'T', 1., pv_s, 'T', 1., pa_ip, 'T', 1., & 147 151 & pv_ip, 'T', 1. ) 148 152 ELSE 149 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i, 'T', 1., pv_i, 'T', 1., psv_i, 'T', 1., &153 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i, 'T', 1., pv_i, 'T', 1., psv_i, 'T', 1., & 150 154 & poa_i, 'T', 1., pv_s, 'T', 1. ) 151 155 ENDIF 156 152 157 END DO 153 158 !
Note: See TracChangeset
for help on using the changeset viewer.