pkg/ctrl/ctrl_set_globfld_xyz.F

7bfe6112e8 Jean*0001 #include "CTRL_OPTIONS.h"
5d5c0b0d52 Patr*0002
5cf4364659 Mart*0003       SUBROUTINE CTRL_SET_GLOBFLD_XYZ(
                0004      I                fname, nRecArg, filePrec, myThid )
5d5c0b0d52 Patr*0005
5cf4364659 Mart*0006 C     ==================================================================
                0007 C     SUBROUTINE ctrl_set_globfld_xyz
                0008 C     ==================================================================
                0009 C
                0010 C     o initialise field
                0011 C
                0012 C     started: heimbach@mit.edu, 16-Aug-2001
                0013 C
                0014 C     ==================================================================
5d5c0b0d52 Patr*0015
5cf4364659 Mart*0016       IMPLICIT NONE
5d5c0b0d52 Patr*0017
5cf4364659 Mart*0018 C     == global variables ==
5d5c0b0d52 Patr*0019 #include "EEPARAMS.h"
                0020 #include "SIZE.h"
5cf4364659 Mart*0021 c#include "PARAMS.h"
                0022 c#include "CTRL_SIZE.h"
                0023 c#include "CTRL.h"
65754df434 Mart*0024 #include "OPTIMCYCLE.h"
5d5c0b0d52 Patr*0025
5cf4364659 Mart*0026 C     == routine arguments ==
                0027       CHARACTER*(MAX_LEN_FNAM)   fname
                0028       INTEGER nRecArg
                0029       INTEGER filePrec
                0030       INTEGER myThid
5d5c0b0d52 Patr*0031
5cf4364659 Mart*0032 C     == local variables ==
                0033       INTEGER bi, bj
                0034       INTEGER i, j, k
                0035       INTEGER irec
de57a2ec4b Mart*0036       _RL globfld3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
5d5c0b0d52 Patr*0037
5cf4364659 Mart*0038 C     == end of interface ==
5d5c0b0d52 Patr*0039
5cf4364659 Mart*0040 C     Initialise temporary file
7c50f07931 Mart*0041       DO bj = myByLo(myThid),myByHi(myThid)
                0042         DO bi = myBxLo(myThid),myBxHi(myThid)
de57a2ec4b Mart*0043           DO k = 1,Nr
7c50f07931 Mart*0044             DO j = 1-OLy,sNy+OLy
                0045               DO i = 1-OLx,sNx+OLx
edf8adef61 Jean*0046                 globfld3d(i,j,k,bi,bj) = 0. _d 0
7c50f07931 Mart*0047               ENDDO
                0048             ENDDO
                0049           ENDDO
                0050         ENDDO
                0051       ENDDO
5d5c0b0d52 Patr*0052
5cf4364659 Mart*0053       DO irec = 1, nRecArg
                0054         CALL WRITE_REC_3D_RL( fname, filePrec, Nr,
edf8adef61 Jean*0055      &                        globfld3d,
                0056      &                        irec, optimcycle, myThid )
7c50f07931 Mart*0057       ENDDO
5d5c0b0d52 Patr*0058
edf8adef61 Jean*0059       RETURN
                0060       END