Changeset 49 for trunk/NEMO/OPA_SRC/LDF/ldfslp.F90

Timestamp:

2004-04-22T11:13:02+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE023 : Addition of new diagnostics controled with logical key l_ctl

File:

• trunk/NEMO/OPA_SRC/LDF/ldfslp.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/LDF/ldfslp.F90

@@ -471 +471 @@
 
       
-      ! III Lateral boundary conditions on all slopes (uslp, vslp,
-      ! -------------------------------             wslpi,wslpj )
+      ! III Lateral boundary conditions on all slopes (uslp , vslp, 
+      ! -------------------------------                wslpi, wslpj )
       CALL lbc_lnk( uslp , 'U', -1. )
       CALL lbc_lnk( vslp , 'V', -1. )
       CALL lbc_lnk( wslpi, 'W', -1. )
       CALL lbc_lnk( wslpj, 'W', -1. )
+
+      IF(l_ctl) THEN
+         WRITE(numout,*) ' slp  - u : ', SUM( uslp (:,:,:) ), ' v : ', SUM( vslp (:,:,:) )
+         WRITE(numout,*) '      - wi: ', SUM( wslpi(:,:,:) ), ' wj: ', SUM( wslpj(:,:,:) )
+      ENDIF
 
    END SUBROUTINE ldf_slp
@@ -625 +630 @@
       ! Local vertical density gradient evaluated from N^2
       !     zwy = d/dz(prd)= - ( prd ) / grav * mk(pn2) -- at t point
-      zwy ( :, jpj) = 0.0e0
-      zwy ( jpi, :) = 0.0e0
+      zwy ( :, jpj) = 0.e0
+      zwy ( jpi, :) = 0.e0
 # if defined key_vectopt_loop   &&   ! defined key_autotasking
       jj = 1