Changeset 782 for trunk/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2008-01-07T10:07:26+01:00 (16 years ago)

Author:

rblod

Message:

Improvment of AGRIF-NEMO routines, see ticket #42

File:

• trunk/NEMO/NST_SRC/agrif_user.F90 (modified) (5 diffs)

trunk/NEMO/NST_SRC/agrif_user.F90

@@ -65 +65 @@
       USE ice_oce
 #endif
-#if defined key_agrif
       USE agrif_opa_update
       USE agrif_opa_interp
@@ -71 +70 @@
       USE agrif_top_update
       USE agrif_top_interp
-#endif
 
       IMPLICIT NONE
@@ -89 +87 @@
 
       Call opa_init  ! Initializations of each fine grid
+      Call agrif_opa_init
 
       ! Specific fine grid Initializations
@@ -311 +310 @@
    End SUBROUTINE Agrif_detect
 
+   SUBROUTINE agrif_opa_init
+      !!---------------------------------------------
+      !!   *** ROUTINE agrif_init ***
+      !!---------------------------------------------
+      USE agrif_oce 
+      USE in_out_manager
+
+      IMPLICIT NONE
+
+      NAMELIST/namagrif/ nbclineupdate, visc_tra, visc_dyn, ln_spc_dyn
+
+      REWIND ( numnam )
+      READ   ( numnam, namagrif )
+      IF(lwp) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) 'agrif_opa_init : agrif parameters'
+         WRITE(numout,*) '~~~~~~~~~~~~'
+         WRITE(numout,*) '          Namelist namagrif : set agrif parameters'
+         WRITE(numout,*) '             baroclinic update frequency          =  ', nbclineupdate
+         WRITE(numout,*) '             sponge coefficient for tracers       =  ', visc_tra
+         WRITE(numout,*) '             sponge coefficient for dynamics      =  ', visc_dyn
+         WRITE(numout,*) '             use special values for dynamics      =  ', ln_spc_dyn
+         WRITE(numout,*) 
+      ENDIF
+
+    END SUBROUTINE agrif_opa_init
 #if defined key_mpp_mpi
-
    SUBROUTINE Agrif_InvLoc(indloc,nprocloc,i,indglob)
       !!------------------------------------------
@@ -335 +359 @@
 
    END SUBROUTINE Agrif_InvLoc
-
-#endif
-
+#endif
 #else
    SUBROUTINE Subcalledbyagrif