Changeset 4726 for branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

Timestamp:

2014-07-23T18:27:21+02:00 (10 years ago)

Author:

mathiot

Message:

ISF branch: change name of 2 variables (icedep => risfdep and lmask => ssmask), cosmetic changes and add ldfslp key

File:

• branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90 (modified) (3 diffs)

branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

@@ -405 +405 @@
          DO jj = 1, jpj
             DO ji = 1, jpi   ! vector opt.
-               zmask = lmask(ji,jj)          ! land/sea bottom mask = surf. mask
+               zmask = ssmask(ji,jj)          ! land/sea bottom mask = surf. mask
                zt    = pts  (ji,jj,jp_tem)            ! interpolated T
                zs    = pts  (ji,jj,jp_sal)            ! interpolated S
@@ -447 +447 @@
          DO jj = 1, jpj
             DO ji = 1, jpi   ! vector opt.
-               prd(ji,jj) = ( 0.0285_wp - rn_alpha * pts(ji,jj,jp_tem) ) * lmask(ji,jj)
+               prd(ji,jj) = ( 0.0285_wp - rn_alpha * pts(ji,jj,jp_tem) ) * ssmask(ji,jj)
             END DO
          END DO
@@ -454 +454 @@
          DO jj = 1, jpj
             DO ji = 1, jpi   ! vector opt.
-               prd(ji,jj) = ( rn_beta * pts(ji,jj,jp_sal) - rn_alpha * pts(ji,jj,jp_tem) ) * lmask(ji,jj)
+               prd(ji,jj) = ( rn_beta * pts(ji,jj,jp_sal) - rn_alpha * pts(ji,jj,jp_tem) ) * ssmask(ji,jj)
             END DO
          END DO