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

Timestamp:

2005-11-14T13:08:42+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_023 : CE + RB + CT : new evolution of modules

File:

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

trunk/NEMO/TOP_SRC/oce_trc.F90

@@ -41 +41 @@
       nwrite   =>   nwrite,  & !: frequency of OUTPUT file
       nstock   =>   nstock,  & !: frequency of restart file
+      nprint   =>   nprint,  & !: level of print (0 no print)
       lwp      =>   lwp   ,  & !: boolean term for mpp output
-      ln_ctl   =>   ln_ctl ,  & !: = ln_ctl.AND.lwp (print control on the 1st proc)
-      nictle   =>   nictle ,  & !: = max i indice to make the control SUM
-      njctle   =>   njctle ,  & !: = max j indice to make the control SUM
+      ln_ctl   =>   ln_ctl,  & !: = ln_ctl.AND.lwp (print control on the 1st proc)
+      nictls   =>   nictls,  & !: Start i indice for the SUM control
+      nictle   =>   nictle,  & !: End   i indice for the SUM control
+      njctls   =>   njctls,  & !: Start j indice for the SUM control
+      njctle   =>   njctle,  & !: End   j indice for the SUM control
+      isplt    =>   isplt ,  & !: number of processors following i
+      jsplt    =>   jsplt ,  & !: number of processors following j
+      ijsplt   =>   ijsplt,  & !: nb of local domain = nb of processors
       numout   =>   numout     !: logical unit for output print
+
 
    !! run controm   
@@ -73 +80 @@
       nimpp    =>   nimpp ,  & !: i index for mpp-subdomain left bottom
       njmpp    =>   njmpp ,  & !: j index for mpp-subdomain left bottom
+      nproc    =>   nproc ,  & !: number for local processor
+      narea    =>   narea ,  & !: number for local area
       mig      =>   mig   ,  & !: local  ==> global  domain i-indice
       mjg      =>   mjg   ,  & !: local  ==> global  domain i-indice
@@ -79 +88 @@
       mj0      =>   mj0   ,  & !: global ==> local domain j-indice 
       mj1      =>   mj1        !: (mj0=1 and mj1=0 if the global indice is not in the local domain)
-      
+ 
+   USE dom_oce , ONLY :       & 
+      nimppt   => nimppt  ,  & !:i-indexes for each processor
+      njmppt   => njmppt  ,  & !:j-indexes for each processor
+      ibonit   => ibonit  ,  & !:i-processor neighbour existence
+      ibonjt   => ibonjt  ,  & !:j- processor neighbour existence 
+      nlcit    => nlcit   ,  & !:dimensions of every i-subdomain
+      nlcjt    => nlcjt   ,  & !:dimensions of every j-subdomain
+      nldit    => nldit   ,  & !:first indoor index for each i-domain 
+      nleit    => nleit   ,  & !:last indoor index for each i-domain 
+      nldjt    => nldjt   ,  & !:first indoor index for each j-domain 
+      nlejt    => nlejt        !:last indoor index for each j-domain 
+
+    
       !! horizontal curvilinear coordinate and scale factors
    USE dom_oce , ONLY :            &    
@@ -198 +220 @@
       tn      =>    tn    ,  & !: pot. temperature (celsius)
       sn      =>    sn    ,  & !: salinity (psu)
-      rhop    =>    rhop       !: potential volumic mass (kg m-3) 
+      rhop    =>    rhop  ,  & !: potential volumic mass (kg m-3) 
+      rhd     =>    rhd        !: in situ density anomalie rhd=(rho-rau0)/rau0 (no units)
+
+#if defined key_trc_diatrd
+   USE oce , ONLY :          &
+      hdivn   =>    hdivn      !: horizontal divergence (1/s)
+#endif
 
 #if defined key_flx_bulk_monthly || defined key_flx_bulk_daily
@@ -214 +242 @@
    USE trabbl , ONLY :           &      
       atrbbl   =>   atrbbl     !: lateral coeff. for bottom boundary layer scheme (m2/s)
+#  if defined key_off_tra
+   USE trabbl, ONLY :            &
+      bblx   => bblx,       &
+      bbly   => bbly
+#  endif
 #endif
 
@@ -262 +295 @@
    USE zdfmxl , ONLY :             &    
       hmld    =>   hmld   ,  & !: mixing layer depth (turbocline)
-      hmlp    =>   hmlp        !: mixed layer depth  (rho=rho0+zdcrit) (m)
+      hmlp    =>   hmlp   ,  & !: mixed layer depth  (rho=rho0+zdcrit) (m)
+      hmlpt   =>   hmlpt       !: mixed layer depth at t-points (m)
 
    USE ldfslp , ONLY :              &