Changeset 3732 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2012-12-12T16:45:03+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r3695 r3732 89 89 TYPE(xios_time) :: dtime = xios_time(0, 0, 0, 0, 0, 0) 90 90 CHARACTER(len=19) :: cldate 91 CHARACTER(len=10) :: clname 91 92 INTEGER :: ji 92 93 !!---------------------------------------------------------------------- 93 94 94 CALL xios_context_initialize("nemo", mpi_comm_opa) 95 clname = "nemo" 96 IF( TRIM(Agrif_CFixed()) /= '0' ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 97 CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 95 98 CALL iom_swap 96 99 97 100 ! calendar parameters 98 101 SELECT CASE ( nleapy ) ! Choose calendar for IOIPSL 99 CASE ( 1) ; CALL xios_set_context_attr( "nemo", calendar_type= "Gregorian")100 CASE ( 0) ; CALL xios_set_context_attr( "nemo", calendar_type= "NoLeap")101 CASE (30) ; CALL xios_set_context_attr( "nemo", calendar_type= "D360")102 CASE ( 1) ; CALL xios_set_context_attr(TRIM(clname), calendar_type= "Gregorian") 103 CASE ( 0) ; CALL xios_set_context_attr(TRIM(clname), calendar_type= "NoLeap") 104 CASE (30) ; CALL xios_set_context_attr(TRIM(clname), calendar_type= "D360") 102 105 END SELECT 103 106 WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday 104 CALL xios_set_context_attr( "nemo", start_date=cldate )107 CALL xios_set_context_attr(TRIM(clname), start_date=cldate ) 105 108 106 109 ! horizontal grid definition
Note: See TracChangeset
for help on using the changeset viewer.