Changeset 811 for branches/dev_001_SBC/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2008-02-07T17:00:12+01:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: merge with the trunk last changesets: #780, 782, 783, 784, 785, 788, 789, 793, 794

File:

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

branches/dev_001_SBC/NEMO/NST_SRC/agrif_user.F90

@@ -68 +68 @@
       USE ice_oce
 #endif
-#if defined key_agrif
       USE agrif_opa_update
       USE agrif_opa_interp
@@ -74 +73 @@
       USE agrif_top_update
       USE agrif_top_interp
-#endif
 
       IMPLICIT NONE
@@ -92 +90 @@
 
       Call opa_init  ! Initializations of each fine grid
+      Call agrif_opa_init
 
       ! Specific fine grid Initializations
@@ -314 +313 @@
    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)
       !!------------------------------------------
@@ -338 +362 @@
 
    END SUBROUTINE Agrif_InvLoc
-
-#endif
-
+#endif
 #else
    SUBROUTINE Subcalledbyagrif