Changeset 3732 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO

Timestamp:

2012-12-12T16:45:03+01:00 (11 years ago)

Author:

smasson

Message:

dev_MERGE_2012: update to use xios and agrif

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -89 +89 @@
       TYPE(xios_time)   :: dtime    = xios_time(0, 0, 0, 0, 0, 0)
       CHARACTER(len=19) :: cldate 
+      CHARACTER(len=10) :: clname
       INTEGER           ::   ji
       !!----------------------------------------------------------------------
 
-      CALL xios_context_initialize("nemo", mpi_comm_opa)
+      clname = "nemo"
+      IF( TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname)
+      CALL xios_context_initialize(TRIM(clname), mpi_comm_opa)
       CALL iom_swap
 
       ! calendar parameters
       SELECT CASE ( nleapy )        ! Choose calendar for IOIPSL
-      CASE ( 1)   ;   CALL xios_set_context_attr("nemo", calendar_type= "Gregorian")
-      CASE ( 0)   ;   CALL xios_set_context_attr("nemo", calendar_type= "NoLeap")
-      CASE (30)   ;   CALL xios_set_context_attr("nemo", calendar_type= "D360")
+      CASE ( 1)   ;   CALL xios_set_context_attr(TRIM(clname), calendar_type= "Gregorian")
+      CASE ( 0)   ;   CALL xios_set_context_attr(TRIM(clname), calendar_type= "NoLeap")
+      CASE (30)   ;   CALL xios_set_context_attr(TRIM(clname), calendar_type= "D360")
       END SELECT
       WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday 
-      CALL xios_set_context_attr("nemo", start_date=cldate )
+      CALL xios_set_context_attr(TRIM(clname), start_date=cldate )
 
       ! horizontal grid definition