Changeset 389 for trunk/NEMO/OPA_SRC/DOM/domwri.F90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/DOM/domwri.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domwri.F90

@@ -87 +87 @@
 
       CHARACTER (len=21) ::      &
-         clnam0 = 'mesh_mask',   &  ! filename (mesh and mask informations)
-         clnam1 = 'mesh'     ,   &  ! filename (mesh informations)
-         clnam2 = 'mask'     ,   &  ! filename (mask informations)
-         clnam3 = 'mesh_hgr' ,   &  ! filename (horizontal mesh informations)
-         clnam4 = 'mesh_zgr'        ! filename (vertical   mesh informations)
+         clnam0  ,   &  ! filename (mesh and mask informations)
+         clnam1  ,   &  ! filename (mesh informations)
+         clnam2  ,   &  ! filename (mask informations)
+         clnam3  ,   &  ! filename (horizontal mesh informations)
+         clnam4         ! filename (vertical   mesh informations)
       !!----------------------------------------------------------------------
 
@@ -97 +97 @@
        IF(lwp) WRITE(numout,*) 'dom_wri : create NetCDF mesh and mask information file(s)'
        IF(lwp) WRITE(numout,*) '~~~~~~~'
+
+         clnam0 = 'mesh_mask'  ! filename (mesh and mask informations)
+         clnam1 = 'mesh'       ! filename (mesh informations)
+         clnam2 = 'mask'       ! filename (mask informations)
+         clnam3 = 'mesh_hgr'   ! filename (horizontal mesh informations)
+         clnam4 = 'mesh_zgr'   ! filename (vertical   mesh informations)
+
+#if defined key_AGRIF
+      if ( .NOT. Agrif_Root() ) then
+        clnam0 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam0)
+        clnam1 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam1)
+        clnam2 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam2)
+        clnam3 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam3)
+        clnam4 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam4)
+      endif
+#endif
 
       CALL ymds2ju( 0, 1, 1, 0.e0, zdate0 )    ! calendar initialization