Changeset 201 for trunk/NEMO/TOP_SRC/oce_trc.F90

Timestamp:

2004-12-22T16:50:26+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE142 : Check the consistency between passive tracers transport modules (in TRP directory) and those used for the active tracers

File:

• trunk/NEMO/TOP_SRC/oce_trc.F90 (modified) (8 diffs)

trunk/NEMO/TOP_SRC/oce_trc.F90

@@ -41 +41 @@
       lwp      =>   lwp   ,  & !: boolean term for mpp output
       l_ctl    =>   l_ctl ,  & !: = ln_ctl.AND.lwp (print control on the 1st proc)
+      nictl    =>   nictl ,  & !: = max i indice to make the control SUM
+      njctl    =>   njctl ,  & !: = max j indice to make the control SUM
       numout   =>   numout,  & !: logical unit for output print
       numwrs   =>   numwrs     !: logical unit for output restart
@@ -47 +49 @@
    USE in_out_manager , ONLY :  &  
       nstop     =>   nstop    ,  &  !: e r r o r  flag (=number of reason for a
-      !                               !                   prematurely stop the run)
+      !                             !                   prematurely stop the run)
       nwarn     =>   nwarn    ,  &  !: w a r n i n g  flag (=number of warning
-      !                               !                   found during the run) 
+      !                             !                   found during the run) 
       cform_err =>   cform_err,  &  !:
-      cform_war =>   cform_war        !:  
+      cform_war =>   cform_war      !:  
       
    USE dom_oce , ONLY :           &            
@@ -109 +111 @@
       lk_mpp   =>  lk_mpp      !: Mpp flag
 
+   USE dynspg_fsc ,   ONLY :            &     
+      lk_dynspg_fsc   =>  lk_dynspg_fsc      !: free surface constant volume flag
+
+   USE dynspg_fsc_atsk ,   ONLY :            &     
+      lk_dynspg_fsc_tsk   =>  lk_dynspg_fsc_tsk      !: free surface constant volume flag
+
 #if defined key_partial_steps
    !! Partial steps ('key_partial_steps')
@@ -124 +132 @@
       e3vw_ps  =>  e3vw_ps      !: vw-points (m)
 
-#endif
+   USE oce , ONLY :                &
+      gtu   =>  gtu  ,  & !: t- horizontal gradient at u-
+      gtv   =>  gtv       !: and v-points at bottom ocean level
+#endif
+
 #if defined key_s_coord
    USE dom_oce , ONLY :              &   
@@ -136 +148 @@
       esigt   =>   esigt  ,  & !: vertical scale factor coef. at t-levels
       esigw   =>   esigw       !: vertical scale factor coef. at w-levels
-
 #endif
 
@@ -200 +211 @@
       atrbbl   =>   atrbbl     !: lateral coeff. for bottom boundary layer scheme (m2/s)
 #endif
+
+   !! Bottom boundary Layer velocities 
+#if   defined key_trcbbl_adv
+   USE trcbbl , ONLY :               &      
+      u_trc_bbl   =>   u_trc_bbl  ,  & !: velocity involved in exhanges in the advective BBL
+      v_trc_bbl   =>   v_trc_bbl  ,  & !:      "                  "                "
+      w_trc_bbl   =>   w_trc_bbl       !: vertical increment of velocity due to advective BBL
+#endif
+
    !! lateral diffusivity (tracers)
    USE ldftra_oce ,   ONLY :             &    
@@ -223 +243 @@
       avs     =>    avs        !: salinity vertical diffusivity coeff. at w-point
 #endif
+
    !! penetrative solar radiation
    USE traqsr , ONLY :            &      
@@ -255 +276 @@
       wslpj      =>   wslpj        !: j-direction slope at v-, w-points
 #endif
+
    !! ocean forcings runoff
    USE flxrnf , ONLY :              &