Changeset 12058 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk

Timestamp:

2019-12-05T08:48:25+01:00 (4 years ago)

Author:

laurent

Message:

Supressed 1 useless call to "lbc_lnk"...

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

@@ -514 +514 @@
       !!    (since reanalysis products provide absolute temperature "T" at z, not theta !)
       !!#LB: because AGRIF hates functions that return something else than a scalar, need to
-      !!     use vectorial version of gamma_moist() ...
-      DO jj = 2, jpjm1
-         DO ji = fs_2, fs_jpim1   ! vect. opt.
+      !!     use "scalar" version of gamma_moist() ...
+      !ztpot(:,:) = sf(jp_tair)%fnow(:,:,1) + gamma_moist( sf(jp_tair)%fnow(:,:,1), zqair(:,:) ) * rn_zqt
+      DO jj = 1, jpj
+         DO ji = 1, jpi
             ztpot(ji,jj) = sf(jp_tair)%fnow(ji,jj,1) + gamma_moist( sf(jp_tair)%fnow(ji,jj,1), zqair(ji,jj) ) * rn_zqt
          END DO
       END DO
-      CALL lbc_lnk( 'sbcblk', ztpot, 'T',  1. ) ! for CTL-sanity of C1D cases...
-      !ztpot(:,:) = sf(jp_tair)%fnow(:,:,1) + gamma_moist( sf(jp_tair)%fnow(:,:,1), zqair(:,:) ) * rn_zqt
+
       
       !! Time to call the user-selected bulk parameterization for