Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/TOP/oce_trc.F90

Timestamp:

2018-07-29T11:23:51+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step II.1 time-level dimension on ssh

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/TOP/oce_trc.F90 (modified) (3 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/TOP/oce_trc.F90

@@ -8 +8 @@
    !!----------------------------------------------------------------------
    !                                            !* Domain size *
-   USE par_oce , ONLY :   jpi      =>   jpi        !: first  dimension of grid --> i 
-   USE par_oce , ONLY :   jpj      =>   jpj        !: second dimension of grid --> j  
-   USE par_oce , ONLY :   jpk      =>   jpk        !: number of levels  
-   USE par_oce , ONLY :   jpim1    =>   jpim1      !: jpi - 1
-   USE par_oce , ONLY :   jpjm1    =>   jpjm1      !: jpj - 1 
-   USE par_oce , ONLY :   jpkm1    =>   jpkm1      !: jpk - 1  
-   USE par_oce , ONLY :   jpij     =>   jpij       !: jpi x jpj
-   USE par_oce , ONLY :   jp_tem   =>   jp_tem     !: indice for temperature
-   USE par_oce , ONLY :   jp_sal   =>   jp_sal     !: indice for salinity
+   USE par_oce, ONLY :   jpi      =>   jpi        !: first  dimension of grid --> i 
+   USE par_oce, ONLY :   jpj      =>   jpj        !: second dimension of grid --> j  
+   USE par_oce, ONLY :   jpk      =>   jpk        !: number of levels  
+   USE par_oce, ONLY :   jpim1    =>   jpim1      !: jpi - 1
+   USE par_oce, ONLY :   jpjm1    =>   jpjm1      !: jpj - 1 
+   USE par_oce, ONLY :   jpkm1    =>   jpkm1      !: jpk - 1  
+   USE par_oce, ONLY :   jpij     =>   jpij       !: jpi x jpj
+   USE par_oce, ONLY :   jp_tem   =>   jp_tem     !: indice for temperature
+   USE par_oce, ONLY :   jp_sal   =>   jp_sal     !: indice for salinity
+
+   USE par_oce, ONLY :   Nt       =>   Nt         !: number of time-levels
+   USE par_oce, ONLY :   Nbb      =>   Nbb        !: index for before time-level
+   USE par_oce, ONLY :   Nnn      =>   Nnn        !: index for now      -    -
+   USE par_oce, ONLY :   Naa      =>   Naa        !: index for after    -    -  
 
    USE in_out_manager                           !* IO manager *
@@ -42 +47 @@
    USE oce , ONLY :   rhd     =>    rhd     !: in situ density anomalie rhd=(rho-rho0)/rho0 (no units)
    USE oce , ONLY :   hdivn   =>    hdivn   !: horizontal divergence (1/s)
-   USE oce , ONLY :   sshn    =>    sshn    !: sea surface height at t-point [m]   
-   USE oce , ONLY :   sshb    =>    sshb    !: sea surface height at t-point [m]   
-   USE oce , ONLY :   ssha    =>    ssha    !: sea surface height at t-point [m]   
+   USE oce , ONLY :   ssh     =>    ssh     !: sea surface height at t-point [m]   
    USE oce , ONLY :   rab_n   =>    rab_n   !: local thermal/haline expension ratio at T-points
 
@@ -94 +97 @@
    USE zdfmxl , ONLY :   hmlpt       =>   hmlpt       !: mixed layer depth at t-points (m)
 
+   !!======================================================================
 END MODULE oce_trc