Changeset 298 for trunk/NEMO/OPA_SRC/SBC/bulk.F90

Timestamp:

2005-09-22T12:58:15+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_011 : CT : remove the gsss(:,:) and zsss(:,:) arrays since they are not used

File:

• trunk/NEMO/OPA_SRC/SBC/bulk.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/SBC/bulk.F90

@@ -49 +49 @@
 
       !! * Local declarations    
-      REAL(wp), DIMENSION(jpi,jpj) ::   &
-         zsst , zsss
+      REAL(wp), DIMENSION(jpi,jpj) ::   zsst 
 # if ! defined key_ice_lim
       INTEGER  ::   ji, jj         ! dummy loop indices  
@@ -67 +66 @@
         IF ( .NOT.ln_rstart ) THEN
            gsst(:,:) =  ( nfbulk - 1 ) * ( tn(:,:,1) + rt0 )
-           gsss(:,:) =  ( nfbulk - 1 ) *   sn(:,:,1)
         ENDIF
      ENDIF
@@ -84 +82 @@
 
       gsst(:,:) = gsst(:,:) + tn(:,:,1) + rt0  
-      gsss(:,:) = gsss(:,:) + sn(:,:,1)
 
       !  Computation of the fluxes       
       IF( MOD( kt - 1 , nfbulk ) == 0 ) THEN
 
-!i       zsst(:,:) = gsst(:,:) / REAL( nfbulk ) 
          zsst(:,:) = gsst(:,:) / REAL( nfbulk ) * tmask(:,:,1)
-         zsss(:,:) = gsss(:,:) / REAL( nfbulk )
          CALL flx_blk( zsst )    
      
          gsst(:,:) = 0.    
-         gsss(:,:) = 0.  
 
 # if ! defined key_ice_lim
@@ -110 +104 @@
             CALL prt_ctl(tab2d_1=tauy    , clinfo1=' v-stress  : ', mask1=tmask, ovlap=1)
             CALL prt_ctl(tab2d_1=zsst    , clinfo1=' sst       : ', mask1=tmask, ovlap=1)
-            CALL prt_ctl(tab2d_1=zsss    , clinfo1=' sss       : ', mask1=tmask, ovlap=1)
          ENDIF
 # endif