Changeset 2804 for branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

Timestamp:

2011-07-18T17:05:52+02:00 (13 years ago)

Author:

rblod

Message:

dev_r2802_LOCEAN10_agrif_lim: first implementation see ticket #848

File:

• branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90 (modified) (2 diffs)

branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

@@ -29 +29 @@
    REAL(wp), PUBLIC ::   visc_dyn                  !: sponge coeff. for dynamics
 
+   INTEGER, PUBLIC :: nbcline = 0
    LOGICAL , PUBLIC :: spongedoneT = .FALSE.   !: tracer   sponge layer indicator
    LOGICAL , PUBLIC :: spongedoneU = .FALSE.   !: dynamics sponge layer indicator
@@ -35 +36 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE,  DIMENSION(:,:) ::   spe1ur2, spe2vr2, spbtr3   !: ???
    
-   INTEGER :: tn_id, sn_id, tb_id, sb_id, ta_id, sa_id
-   INTEGER :: un_id, vn_id, ua_id, va_id
-   INTEGER :: e1u_id, e2v_id, sshn_id, gcb_id
-   INTEGER :: trn_id, trb_id, tra_id
+   INTEGER, PUBLIC :: tn_id, sn_id, tb_id, sb_id, ta_id, sa_id
+   INTEGER, PUBLIC :: un_id, vn_id, ua_id, va_id
+   INTEGER, PUBLIC :: e1u_id, e2v_id, sshn_id, gcb_id
+   INTEGER, PUBLIC :: trn_id, trb_id, tra_id
 
    !!----------------------------------------------------------------------