pkg/profiles/profiles_init_varia.F

24462d2fa8 Patr*0001 #include "PROFILES_OPTIONS.h"
6e4c90fea3 Patr*0002
                0003       subroutine profiles_init_varia( mythid )
                0004
                0005 c     ==================================================================
                0006 c     SUBROUTINE profiles_init_varia
                0007 c     ==================================================================
                0008 c
                0009 c     o Initialise the variable cost function part.
                0010 c
                0011 c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
                0012 c     changed: Christian Eckert eckert@mit.edu 18-Apr-2000
                0013 c              - Restructured the code in order to create a package
                0014 c                for the MITgcmUV.
                0015 c     heimbach@mit.edu 05-Nov-2003 Now ecco part of cost
                0016 c
                0017 c     ==================================================================
                0018 c     SUBROUTINE profiles_init_varia
                0019 c     ==================================================================
                0020
                0021       implicit none
                0022
                0023 c     == global variables ==
                0024
                0025 #include "EEPARAMS.h"
                0026 #include "SIZE.h"
                0027 #include "GRID.h"
                0028
24462d2fa8 Patr*0029 #ifdef ALLOW_PROFILES
6328b73337 Gael*0030 # include "PROFILES_SIZE.h"
                0031 # include "profiles.h"
6e4c90fea3 Patr*0032 #endif
                0033
                0034 c     == routine arguments ==
                0035
                0036       integer mythid
                0037
                0038 c     == local variables ==
                0039
                0040       integer bi,bj
                0041       integer itlo,ithi
                0042       integer jtlo,jthi
                0043       integer num_file,num_var
                0044
                0045 c     == external functions ==
                0046
                0047 c     == end of interface ==
                0048       jtlo = mybylo(mythid)
                0049       jthi = mybyhi(mythid)
                0050       itlo = mybxlo(mythid)
                0051       ithi = mybxhi(mythid)
                0052
                0053 c--   Initialize the tiled cost function contributions.
                0054       do bj = jtlo,jthi
                0055         do bi = itlo,ithi
                0056           do num_file=1,NFILESPROFMAX
ea4d09597a Gael*0057            do num_var=1,NVARMAX
6e4c90fea3 Patr*0058             objf_profiles(num_file,num_var,bi,bj)= 0. _d 0
                0059             num_profiles(num_file,num_var,bi,bj) = 0. _d 0
fefc3c6333 Gael*0060             profiles_dummy(num_file,num_var,bi,bj)=0. _d 0
6e4c90fea3 Patr*0061            enddo
                0062           enddo
6b2230d510 Ou W*0063           do num_var=1,NVARMAX
                0064            objf_profiles_mean(num_var,bi,bj)= 0. _d 0
                0065            num_profiles_mean(num_var,bi,bj) = 0. _d 0
                0066           enddo
6e4c90fea3 Patr*0067         enddo
                0068       enddo
                0069
                0070       _BARRIER
                0071
                0072       return
                0073       end
                0074