Changeset 12058 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
- Timestamp:
- 2019-12-05T08:48:25+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
r12043 r12058 514 514 !! (since reanalysis products provide absolute temperature "T" at z, not theta !) 515 515 !!#LB: because AGRIF hates functions that return something else than a scalar, need to 516 !! use vectorial version of gamma_moist() ... 517 DO jj = 2, jpjm1 518 DO ji = fs_2, fs_jpim1 ! vect. opt. 516 !! use "scalar" version of gamma_moist() ... 517 !ztpot(:,:) = sf(jp_tair)%fnow(:,:,1) + gamma_moist( sf(jp_tair)%fnow(:,:,1), zqair(:,:) ) * rn_zqt 518 DO jj = 1, jpj 519 DO ji = 1, jpi 519 520 ztpot(ji,jj) = sf(jp_tair)%fnow(ji,jj,1) + gamma_moist( sf(jp_tair)%fnow(ji,jj,1), zqair(ji,jj) ) * rn_zqt 520 521 END DO 521 522 END DO 522 CALL lbc_lnk( 'sbcblk', ztpot, 'T', 1. ) ! for CTL-sanity of C1D cases... 523 !ztpot(:,:) = sf(jp_tair)%fnow(:,:,1) + gamma_moist( sf(jp_tair)%fnow(:,:,1), zqair(:,:) ) * rn_zqt 523 524 524 525 525 !! Time to call the user-selected bulk parameterization for
Note: See TracChangeset
for help on using the changeset viewer.