Changeset 7200 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2016-11-06T17:31:33+01:00 (7 years ago)

Author:

gm

Message:

#1692 - branch SIMPLIF_2_usrdef: add depth_e3 module + management of ORCA family + domain_cfg filename (in&out) given in namelist

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (20 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -1 +1 @@
 #if defined key_agrif
 !!----------------------------------------------------------------------
-!! NEMO/NST 3.7 , NEMO Consortium (2015)
+!! NEMO/NST 3.7 , NEMO Consortium (2016)
 !! $Id$
 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
@@ -18 +18 @@
    USE dom_oce
    USE nemogcm
-   !
+   !!
    IMPLICIT NONE
    !!----------------------------------------------------------------------
@@ -60 +60 @@
    USE tradmp
    USE bdy_par
-
-   IMPLICIT NONE
-   !!----------------------------------------------------------------------
-   ! 0. Initializations
-   !-------------------
-   IF( cp_cfg == 'orca' ) THEN
-      IF ( jp_cfg == 2 .OR. jp_cfg == 025 .OR. jp_cfg == 05 &
-            &                      .OR. jp_cfg == 4 ) THEN
-         jp_cfg = -1    ! set special value for jp_cfg on fine grids
-         cp_cfg = "default"
+   !!
+   IMPLICIT NONE
+   !!----------------------------------------------------------------------
+   !
+!!gm  I think this is now useless ...   nn_cfg & cn_cfg are set to -999999 and "UNKNOWN" 
+!!gm                                    when reading the AGRIF domain configuration file
+   IF( cn_cfg == 'orca' ) THEN
+      IF ( nn_cfg == 2 .OR. nn_cfg == 025 .OR. nn_cfg == 05  .OR. nn_cfg == 4 ) THEN
+         nn_cfg = -1    ! set special value for nn_cfg on fine grids
+         cn_cfg = "default"
       ENDIF
    ENDIF
-   ! Specific fine grid Initializations
-   ! no tracer damping on fine grids
-   ln_tradmp = .FALSE.
-   ! no open boundary on fine grids
-   lk_bdy = .FALSE.
-
-
-   CALL nemo_init  ! Initializations of each fine grid
-
+!!gm end
+
+   !                    !* Specific fine grid Initializations
+   ln_tradmp = .FALSE.        ! no tracer damping on fine grids
+   !
+   lk_bdy    = .FALSE.        ! no open boundary on fine grids
+
+   CALL nemo_init       !* Initializations of each fine grid
+
+   !                    !* Agrif initialization
    CALL agrif_nemo_init
    CALL Agrif_InitValues_cont_dom
@@ -88 +89 @@
 # if defined key_top
    CALL Agrif_InitValues_cont_top
-# endif      
+# endif
+   !
 END SUBROUTINE Agrif_initvalues
 
@@ -106 +108 @@
    USE agrif_opa_interp
    USE agrif_opa_sponge
-   !
-   IMPLICIT NONE
-   !
-   !!----------------------------------------------------------------------
-
+   !!
+   IMPLICIT NONE
+   !!----------------------------------------------------------------------
+   !
    ! Declaration of the type of variable which have to be interpolated
-   !---------------------------------------------------------------------
+   !
    CALL agrif_declare_var_dom
    !
@@ -127 +128 @@
    USE par_oce       
    USE oce
+   !!
    IMPLICIT NONE
    !!----------------------------------------------------------------------
@@ -174 +176 @@
    USE agrif_opa_interp
    USE agrif_opa_sponge
-   !
+   !!
    IMPLICIT NONE
    !
@@ -344 +346 @@
    USE oce
    USE agrif_oce
+   !!
    IMPLICIT NONE
    !!----------------------------------------------------------------------
@@ -482 +485 @@
    USE agrif_lim2_interp
    USE lib_mpp
-   !
-   IMPLICIT NONE
-   !
+   !!
+   IMPLICIT NONE
    !!----------------------------------------------------------------------
 
@@ -519 +521 @@
 END SUBROUTINE Agrif_InitValues_cont_lim2
 
+
 SUBROUTINE agrif_declare_var_lim2
    !!----------------------------------------------------------------------
@@ -527 +530 @@
    USE agrif_util
    USE ice_2
-
+   !!
    IMPLICIT NONE
    !!----------------------------------------------------------------------
@@ -583 +586 @@
    USE agrif_top_interp
    USE agrif_top_sponge
-   !
+   !!
    IMPLICIT NONE
    !
@@ -682 +685 @@
    USE dom_oce
    USE trc
-
-   IMPLICIT NONE
+   !!
+   IMPLICIT NONE
+   !!----------------------------------------------------------------------
 
    ! 1. Declaration of the type of variable which have to be interpolated
@@ -714 +718 @@
 SUBROUTINE Agrif_detect( kg, ksizex )
    !!----------------------------------------------------------------------
-   !!   *** ROUTINE Agrif_detect ***
-   !!----------------------------------------------------------------------
-   !
+   !!                      *** ROUTINE Agrif_detect ***
+   !!----------------------------------------------------------------------
    INTEGER, DIMENSION(2) :: ksizex
    INTEGER, DIMENSION(ksizex(1),ksizex(2)) :: kg 
@@ -734 +737 @@
    USE in_out_manager
    USE lib_mpp
+   !!
    IMPLICIT NONE
    !
@@ -787 +791 @@
    !!----------------------------------------------------------------------
    USE dom_oce
+   !!
    IMPLICIT NONE
    !
@@ -801 +806 @@
 END SUBROUTINE Agrif_InvLoc
 
+
 SUBROUTINE Agrif_get_proc_info( imin, imax, jmin, jmax )
    !!----------------------------------------------------------------------
@@ -806 +812 @@
    !!----------------------------------------------------------------------
    USE par_oce
+   !!
    IMPLICIT NONE
    !
@@ -819 +826 @@
 END SUBROUTINE Agrif_get_proc_info
 
+
 SUBROUTINE Agrif_estimate_parallel_cost(imin, imax,jmin, jmax, nbprocs, grid_cost)
    !!----------------------------------------------------------------------
@@ -824 +832 @@
    !!----------------------------------------------------------------------
    USE par_oce
+   !!
    IMPLICIT NONE
    !