Changeset 392 for trunk/NEMO/OPA_SRC/restart_dimg.h90

Timestamp:

2006-03-10T11:55:45+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• add agrif to dynspg_flt_jki.F90
• cosmetic change of key_AGRIF in key_agrif

File:

• trunk/NEMO/OPA_SRC/restart_dimg.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/restart_dimg.h90

@@ -62 +62 @@
        irecl8= jpi * jpj * wp
        WRITE(clres,'(a,i3.3)') 'restart.output.',narea
-#if defined key_AGRIF 
+#if defined key_agrif 
        inum = Agrif_Get_Unit()      
        If(.NOT. Agrif_root() ) clres = TRIM(Agrif_CFixed())//'_'//TRIM(clres)
@@ -273 +273 @@
     ! Open direct access file, with reclength for 2D wp fields
     WRITE(clres,'(a,i3.3)') 'restart.',narea
-#if defined key_AGRIF       
+#if defined key_agrif       
     inum = Agrif_Get_Unit()
     If(.NOT. Agrif_root() ) clres = TRIM(Agrif_CFixed())//'_'//TRIM(clres)