Changeset 12058


Ignore:
Timestamp:
2019-12-05T08:48:25+01:00 (8 months ago)
Author:
laurent
Message:

Supressed 1 useless call to "lbc_lnk"…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

    r12043 r12058  
    514514      !!    (since reanalysis products provide absolute temperature "T" at z, not theta !) 
    515515      !!#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 
    519520            ztpot(ji,jj) = sf(jp_tair)%fnow(ji,jj,1) + gamma_moist( sf(jp_tair)%fnow(ji,jj,1), zqair(ji,jj) ) * rn_zqt 
    520521         END DO 
    521522      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 
    524524       
    525525      !! Time to call the user-selected bulk parameterization for 
Note: See TracChangeset for help on using the changeset viewer.