Changeset 6851 for branches/2016/dev_r6325_SIMPLIF_1/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2016-08-08T10:34:39+02:00 (8 years ago)

Author:

gm

Message:

#1629: SIMPLIF_1: S-EOS + DOC and phasing with trunk rev6826

File:

• branches/2016/dev_r6325_SIMPLIF_1/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

branches/2016/dev_r6325_SIMPLIF_1/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -114 +114 @@
       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 
+      WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' ',i2.2,':',i2.2,':00')") nyear,nmonth,nday,nhour,nminute
       CALL xios_set_context_attr(TRIM(clname), start_date=cldate )
 
@@ -792 +792 @@
                   ENDIF
                   IF( PRESENT(pv_r3d) ) THEN
-                     IF( idom == jpdom_data ) THEN                         ;   icnt(3) = jpkdta
+                     IF( idom == jpdom_data ) THEN                         ;   icnt  (3) = jpkdta
                      ELSE IF( ll_depth_spec .AND. PRESENT(kstart) ) THEN   ;   istart(3) = kstart(3)   ;   icnt(3) = kcount(3)
-                     ELSE                                                  ;   icnt(3) = jpk
+                     ELSE                                                  ;   icnt  (3) = jpk
                      ENDIF
                   ENDIF