Changeset 1636

Timestamp:

2009-10-02T11:45:31+02:00 (15 years ago)

Author:

smasson

Message:

date.file is no more existing when using key_iomput, see ticket:551

File:

• trunk/NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -608 +608 @@
 
       CHARACTER (len=40)       ::   clhstnam, clop, clop_once, cl_comment   ! temporary names
-      INTEGER                  ::   iline, it, itmod, ji, jj, jk      !
-      REAL(wp)                 ::   zsto, zout, zdt, zjulian   ! temporary scalars
+      INTEGER                  ::   iline, it, itmod, ji, jj, jk            !
+#if defined key_iomput
+      INTEGER                  ::   inum                                    ! temporary logical unit
+#endif
+      REAL(wp)                 ::   zsto, zout, zdt, zjulian                ! temporary scalars
       REAL(wp), DIMENSION(jpj) ::   zphi, zfoo
       REAL(wp), DIMENSION(jpj,jpk) :: z_1
@@ -706 +709 @@
             zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment
 
+#if defined key_iomput
+            ! Requested by IPSL people, use by their postpro...
+            IF(lwp) THEN
+               CALL dia_nam( clhstnam, nf_ptr_wri,' ' )
+               CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
+               WRITE(inum,*) clhstnam
+               CLOSE(inum)
+            ENDIF
+#endif
+
             CALL dia_nam( clhstnam, nf_ptr_wri, 'diaptr' )
             IF(lwp)WRITE( numout,*)" Name of diaptr NETCDF file : ", clhstnam