/[MITgcm]/MITgcm/pkg/rw/write_rec.F
ViewVC logotype

Diff of /MITgcm/pkg/rw/write_rec.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Sat Jun 6 20:09:30 2009 UTC revision 1.4 by jmc, Tue Sep 1 19:25:28 2009 UTC
# Line 13  C--   o WRITE_REC_3D_RS Line 13  C--   o WRITE_REC_3D_RS
13  C--   o WRITE_REC_3D_RL  C--   o WRITE_REC_3D_RL
14  C--   o WRITE_REC_LEV_RS  C--   o WRITE_REC_LEV_RS
15  C--   o WRITE_REC_LEV_RL  C--   o WRITE_REC_LEV_RL
16    C--   o WRITE_REC_XZ_RS
17    C--   o WRITE_REC_XZ_RL
18    C--   o WRITE_REC_YZ_RS
19    C--   o WRITE_REC_YZ_RL
20    
21  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
22  CBOP  CBOP
# Line 80  C Common Line 83  C Common
83  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
84  C Local  C Local
85        LOGICAL useCurrentDir        LOGICAL useCurrentDir
86          _RL dummyRL(1)
87        CHARACTER*(2) fType        CHARACTER*(2) fType
88        INTEGER nNz        INTEGER nNz
89  c     INTEGER IL  c     INTEGER IL
# Line 101  c     ENDIF Line 105  c     ENDIF
105        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
106       I                      fName, writeBinaryPrec,       I                      fName, writeBinaryPrec,
107       I                      globalFile, useCurrentDir,       I                      globalFile, useCurrentDir,
108       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, dummyRL, field,
109       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
110  #endif  #endif
111        RETURN        RETURN
# Line 143  C Common Line 147  C Common
147  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
148  C Local  C Local
149        LOGICAL useCurrentDir        LOGICAL useCurrentDir
150          _RS dummyRS(1)
151        CHARACTER*(2) fType        CHARACTER*(2) fType
152        INTEGER nNz        INTEGER nNz
153  c     INTEGER IL  c     INTEGER IL
# Line 164  c     ENDIF Line 169  c     ENDIF
169        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
170       I                      fName, writeBinaryPrec,       I                      fName, writeBinaryPrec,
171       I                      globalFile, useCurrentDir,       I                      globalFile, useCurrentDir,
172       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, field, dummyRS,
173       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
174  #endif  #endif
175        RETURN        RETURN
# Line 206  C Common Line 211  C Common
211  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
212  C Local  C Local
213        LOGICAL useCurrentDir        LOGICAL useCurrentDir
214          _RL dummyRL(1)
215        CHARACTER*(2) fType        CHARACTER*(2) fType
216        INTEGER nNz        INTEGER nNz
217  c     INTEGER IL  c     INTEGER IL
# Line 227  c     ENDIF Line 233  c     ENDIF
233        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
234       I                      fName, writeBinaryPrec,       I                      fName, writeBinaryPrec,
235       I                      globalFile, useCurrentDir,       I                      globalFile, useCurrentDir,
236       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, dummyRL, field,
237       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
238  #endif  #endif
239        RETURN        RETURN
# Line 269  C Common Line 275  C Common
275  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
276  C Local  C Local
277        LOGICAL useCurrentDir        LOGICAL useCurrentDir
278          _RS dummyRS(1)
279        CHARACTER*(2) fType        CHARACTER*(2) fType
280        INTEGER nNz        INTEGER nNz
281  c     INTEGER IL  c     INTEGER IL
# Line 290  c     ENDIF Line 297  c     ENDIF
297        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
298       I                      fName, writeBinaryPrec,       I                      fName, writeBinaryPrec,
299       I                      globalFile, useCurrentDir,       I                      globalFile, useCurrentDir,
300       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, field, dummyRS,
301       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
302  #endif  #endif
303        RETURN        RETURN
# Line 337  C Common Line 344  C Common
344  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
345  C Local  C Local
346        LOGICAL useCurrentDir        LOGICAL useCurrentDir
347          _RL dummyRL(1)
348        CHARACTER*(2) fType        CHARACTER*(2) fType
349  c     INTEGER IL  c     INTEGER IL
350  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 355  c     ENDIF Line 363  c     ENDIF
363  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
364        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
365       I                      fName, fPrec, globalFile, useCurrentDir,       I                      fName, fPrec, globalFile, useCurrentDir,
366       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, dummyRL, field,
367       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
368  #endif  #endif
369        RETURN        RETURN
# Line 402  C Common Line 410  C Common
410  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
411  C Local  C Local
412        LOGICAL useCurrentDir        LOGICAL useCurrentDir
413          _RS dummyRS(1)
414        CHARACTER*(2) fType        CHARACTER*(2) fType
415  c     INTEGER IL  c     INTEGER IL
416  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 420  c     ENDIF Line 429  c     ENDIF
429  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
430        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
431       I                      fName, fPrec, globalFile, useCurrentDir,       I                      fName, fPrec, globalFile, useCurrentDir,
432       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, field, dummyRS,
433       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
434  #endif  #endif
435        RETURN        RETURN
# Line 468  C Common Line 477  C Common
477  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
478  C Local  C Local
479        LOGICAL useCurrentDir        LOGICAL useCurrentDir
480          _RL dummyRL(1)
481        CHARACTER*(2) fType        CHARACTER*(2) fType
482  c     INTEGER IL  c     INTEGER IL
483  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 486  c     ENDIF Line 496  c     ENDIF
496  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
497        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
498       I                      fName, fPrec, globalFile, useCurrentDir,       I                      fName, fPrec, globalFile, useCurrentDir,
499       I                      fType, kSiz, kLo, kHi, field,       I                      fType, kSiz, kLo, kHi, dummyRL, field,
500       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
501  #endif  #endif
502        RETURN        RETURN
# Line 534  C Common Line 544  C Common
544  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
545  C Local  C Local
546        LOGICAL useCurrentDir        LOGICAL useCurrentDir
547          _RS dummyRS(1)
548        CHARACTER*(2) fType        CHARACTER*(2) fType
549  c     INTEGER IL  c     INTEGER IL
550  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 552  c     ENDIF Line 563  c     ENDIF
563  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
564        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
565       I                      fName, fPrec, globalFile, useCurrentDir,       I                      fName, fPrec, globalFile, useCurrentDir,
566       I                      fType, kSiz, kLo, kHi, field,       I                      fType, kSiz, kLo, kHi, field, dummyRS,
567       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
568  #endif  #endif
569        RETURN        RETURN
570        END        END
571    
572  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
573    CBOP
574    C     !ROUTINE: WRITE_REC_XZ_RS
575    C     !INTERFACE:
576          SUBROUTINE WRITE_REC_XZ_RS(
577         I                            fName, fPrec, nNz,
578         I                            field,
579         I                            iRec, myIter, myThid )
580    
581    C     !DESCRIPTION: \bv
582    C WRITE_REC_XZ_RS is a "front-end" interface to the low-level I/O
583    C routines.
584    C     \ev
585    
586    C     !USES:
587          IMPLICIT NONE
588    C Global
589    #include "SIZE.h"
590    #include "EEPARAMS.h"
591    #include "PARAMS.h"
592    C     !INPUT/OUTPUT PARAMETERS:
593    C Arguments
594          CHARACTER*(*) fName
595          INTEGER fPrec
596          INTEGER nNz
597          _RS field(1-Olx:sNx+Olx,nNz,nSx,nSy)
598          INTEGER iRec
599          INTEGER myIter
600          INTEGER myThid
601    
602    C Functions
603    c     INTEGER ILNBLNK
604    
605    C Common
606          COMMON /RD_WR_REC/ globalFile
607          LOGICAL globalFile
608    
609    C     !LOCAL VARIABLES:
610    C Local
611          LOGICAL useCurrentDir
612          _RL dummyRL(1)
613          CHARACTER*(2) fType
614    c     INTEGER IL
615    c     CHARACTER*(MAX_LEN_FNAM) fullName
616    CEOP
617    
618    c     IF (myIter.GE.0) THEN
619    c      IL=ILNBLNK( fName )
620    c      WRITE(fullName,'(2a,i10.10)') fName(1:IL),'.',myIter
621    c     ELSE
622    c      fullName=fName
623    c     ENDIF
624    
625          useCurrentDir = .FALSE.
626          fType='RS'
627    #ifdef ALLOW_MDSIO
628          CALL MDS_WRITE_SEC_XZ(
629         I                       fName, fPrec, globalFile, useCurrentDir,
630         I                       fType, nNz,
631         I                       dummyRL, field,
632         I                       iRec, myIter, myThid )
633    #endif
634          RETURN
635          END
636    
637    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
638    CBOP
639    C     !ROUTINE: WRITE_REC_XZ_RL
640    C     !INTERFACE:
641          SUBROUTINE WRITE_REC_XZ_RL(
642         I                            fName, fPrec, nNz,
643         I                            field,
644         I                            iRec, myIter, myThid )
645    
646    C     !DESCRIPTION: \bv
647    C WRITE_REC_XZ_RL is a "front-end" interface to the low-level I/O
648    C routines.
649    C     \ev
650    
651    C     !USES:
652          IMPLICIT NONE
653    C Global
654    #include "SIZE.h"
655    #include "EEPARAMS.h"
656    #include "PARAMS.h"
657    
658    C     !INPUT/OUTPUT PARAMETERS:
659    C Arguments
660          CHARACTER*(*) fName
661          INTEGER fPrec
662          INTEGER nNz
663          _RL field(1-Olx:sNx+Olx,nNz,nSx,nSy)
664          INTEGER iRec
665          INTEGER myIter
666          INTEGER myThid
667    
668    C Functions
669    c     INTEGER ILNBLNK
670    
671    C Common
672          COMMON /RD_WR_REC/ globalFile
673          LOGICAL globalFile
674    
675    C     !LOCAL VARIABLES:
676    C Local
677          LOGICAL useCurrentDir
678          _RS dummyRS(1)
679          CHARACTER*(2) fType
680    c     INTEGER IL
681    c     CHARACTER*(MAX_LEN_FNAM) fullName
682    CEOP
683    
684    c     IF (myIter.GE.0) THEN
685    c      IL=ILNBLNK( fName )
686    c      WRITE(fullName,'(2a,i10.10)') fName(1:IL),'.',myIter
687    c     ELSE
688    c      fullName=fName
689    c     ENDIF
690    
691          useCurrentDir = .FALSE.
692          fType='RL'
693    #ifdef ALLOW_MDSIO
694          CALL MDS_WRITE_SEC_XZ(
695         I                       fName, fPrec, globalFile, useCurrentDir,
696         I                       fType, nNz,
697         I                       field, dummyRS,
698         I                       iRec, myIter, myThid )
699    #endif
700          RETURN
701          END
702    
703    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
704    CBOP
705    C     !ROUTINE: WRITE_REC_YZ_RS
706    C     !INTERFACE:
707          SUBROUTINE WRITE_REC_YZ_RS(
708         I                           fName, fPrec, nNz,
709         I                           field,
710         I                           iRec, myIter, myThid )
711    
712    C     !DESCRIPTION: \bv
713    C WRITE_REC_YZ_RS is a "front-end" interface to the low-level I/O
714    C routines.
715    C     \ev
716    
717    C     !USES:
718          IMPLICIT NONE
719    C Global
720    #include "SIZE.h"
721    #include "EEPARAMS.h"
722    #include "PARAMS.h"
723    
724    C     !INPUT/OUTPUT PARAMETERS:
725    C Arguments
726          CHARACTER*(*) fName
727          INTEGER fPrec
728          INTEGER nNz
729          _RS field(1-Oly:sNy+Oly,nNz,nSx,nSy)
730          INTEGER iRec
731          INTEGER myIter
732          INTEGER myThid
733    
734    C Functions
735    c     INTEGER ILNBLNK
736    
737    C Common
738          COMMON /RD_WR_REC/ globalFile
739          LOGICAL globalFile
740    
741    C     !LOCAL VARIABLES:
742    C Local
743          LOGICAL useCurrentDir
744          _RL dummyRL(1)
745          CHARACTER*(2) fType
746    c     INTEGER IL
747    c     CHARACTER*(MAX_LEN_FNAM) fullName
748    CEOP
749    
750    
751    c     IF (myIter.GE.0) THEN
752    c      IL=ILNBLNK( fName )
753    c      WRITE(fullName,'(2a,i10.10)') fName(1:IL),'.',myIter
754    c     ELSE
755    c      fullName=fName
756    c     ENDIF
757    
758          useCurrentDir = .FALSE.
759          fType='RS'
760    #ifdef ALLOW_MDSIO
761          CALL MDS_WRITE_SEC_YZ(
762         I                       fName, fPrec, globalFile, useCurrentDir,
763         I                       fType, nNz,
764         I                       dummyRL, field,
765         I                       iRec, myIter, myThid )
766    #endif
767          RETURN
768          END
769    
770    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
771    CBOP
772    C     !ROUTINE: WRITE_REC_YZ_RL
773    C     !INTERFACE:
774          SUBROUTINE WRITE_REC_YZ_RL(
775         I                            fName, fPrec, nNz,
776         I                            field,
777         I                            iRec, myIter, myThid )
778    
779    C     !DESCRIPTION: \bv
780    C WRITE_REC_YZ_RL is a "front-end" interface to the low-level I/O
781    C routines.
782    C     \ev
783    
784    C     !USES:
785          IMPLICIT NONE
786    C Global
787    #include "SIZE.h"
788    #include "EEPARAMS.h"
789    #include "PARAMS.h"
790    
791    C     !INPUT/OUTPUT PARAMETERS:
792    C Arguments
793          CHARACTER*(*) fName
794          INTEGER fPrec
795          INTEGER nNz
796          _RL field(1-Oly:sNy+Oly,nNz,nSx,nSy)
797          INTEGER iRec
798          INTEGER myIter
799          INTEGER myThid
800    
801    C Functions
802    c     INTEGER ILNBLNK
803    
804    C Common
805          COMMON /RD_WR_REC/ globalFile
806          LOGICAL globalFile
807    
808    C     !LOCAL VARIABLES:
809    C Local
810          LOGICAL useCurrentDir
811          _RS dummyRS(1)
812          CHARACTER*(2) fType
813    c     INTEGER IL
814    c     CHARACTER*(MAX_LEN_FNAM) fullName
815    CEOP
816    
817    
818    c     IF (myIter.GE.0) THEN
819    c      IL=ILNBLNK( fName )
820    c      WRITE(fullName,'(2a,i10.10)') fName(1:IL),'.',myIter
821    c     ELSE
822    c      fullName=fName
823    c     ENDIF
824    
825          useCurrentDir = .FALSE.
826          fType='RL'
827    #ifdef ALLOW_MDSIO
828          CALL MDS_WRITE_SEC_YZ(
829         I                       fName, fPrec, globalFile, useCurrentDir,
830         I                       fType, nNz,
831         I                       field, dummyRS,
832         I                       iRec, myIter, myThid )
833    #endif
834          RETURN
835          END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22