MITgcm |
|
|
|
|||
File indexing completed on 2018-03-02 18:44:36 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC6d54cf9ca1 Ed H*0001 #include "TIMEAVE_OPTIONS.h" ee4eb647e4 Jean*0002 0003 CStartofinterface 0004 SUBROUTINE TIMEAVE_RESET( fldtave, Ksize, bi, bj, myThid ) 0005 C /==========================================================\ 0006 C | SUBROUTINE TIMEAVE_RESET | 0007 C | o Initialize 3D array (3rd_Dim is an argument) | 0008 C | Can be applied to 2D array with 3rd_Dim = 1 | 0009 C \==========================================================/ 0010 IMPLICIT NONE 0011 0012 C == Global variables === 0013 #include "SIZE.h" 0014 #include "EEPARAMS.h" 0015 0016 C == Routine arguments == 0017 C myThid - Thread number for this instance of the routine. 0018 C fldtave - time averaged Field 0019 C Ksize - 3rd dimension of local arrays "fldtave" 0020 INTEGER bi, bj, Ksize, myThid 0021 _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) 0022 0023 CEndofinterface 0024 0025 C == Local variables == 0026 C i,j,k,bi,bj - Loop counters 0027 INTEGER i, j, k 0028 0029 c DO bj = myByLo(myThid), myByHi(myThid) 0030 c DO bi = myBxLo(myThid), myBxHi(myThid) 0031 DO k=1,Ksize 0032 DO j=1-OLy,sNy+OLy 0033 DO i=1-OLx,sNx+OLx 0034 fldtave(i,j,k,bi,bj) = 0. _d 0 0035 ENDDO 0036 ENDDO 0037 ENDDO 0038 c ENDDO 0039 c ENDDO 0040 0041 RETURN 0042 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|