/[MITgcm]/MITgcm/pkg/profiles/profiles_init_varia.F
ViewVC logotype

Contents of /MITgcm/pkg/profiles/profiles_init_varia.F

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

Revision 1.7 - (show annotations) (download)
Tue Oct 9 00:07:59 2007 UTC (16 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59k, checkpoint59j, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.6: +2 -1 lines 
add missing cvs $Header:$ or $Name:$
1 C $Header: $
2 C $Name: $
3
4 #include "PROFILES_OPTIONS.h"
5
6 subroutine profiles_init_varia( mythid )
7
8 c ==================================================================
9 c SUBROUTINE profiles_init_varia
10 c ==================================================================
11 c
12 c o Initialise the variable cost function part.
13 c
14 c started: Christian Eckert eckert@mit.edu 30-Jun-1999
15 c changed: Christian Eckert eckert@mit.edu 18-Apr-2000
16 c - Restructured the code in order to create a package
17 c for the MITgcmUV.
18 c heimbach@mit.edu 05-Nov-2003 Now ecco part of cost
19 c
20 c ==================================================================
21 c SUBROUTINE profiles_init_varia
22 c ==================================================================
23
24 implicit none
25
26 c == global variables ==
27
28 #include "EEPARAMS.h"
29 #include "SIZE.h"
30 #include "GRID.h"
31
32 #ifdef ALLOW_PROFILES
33 #include "profiles.h"
34 #endif
35
36 c == routine arguments ==
37
38 integer mythid
39
40 c == local variables ==
41
42 integer bi,bj
43 integer itlo,ithi
44 integer jtlo,jthi
45 integer i,j,k
46 integer num_file,num_var
47
48 logical exst
49
50 c == external functions ==
51
52 c == end of interface ==
53 jtlo = mybylo(mythid)
54 jthi = mybyhi(mythid)
55 itlo = mybxlo(mythid)
56 ithi = mybxhi(mythid)
57
58 c-- Initialize the tiled cost function contributions.
59 do bj = jtlo,jthi
60 do bi = itlo,ithi
61 do num_file=1,NFILESPROFMAX
62 do num_var=1,NVARMAX
63 objf_profiles(num_file,num_var,bi,bj)= 0. _d 0
64 num_profiles(num_file,num_var,bi,bj) = 0. _d 0
65 profiles_dummy(num_file,num_var,bi,bj)=0. _d 0
66 enddo
67 enddo
68 enddo
69 enddo
70
71 _BARRIER
72
73 return
74 end
75
  ViewVC Help
Powered by ViewVC 1.1.22