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

Diff of /MITgcm/pkg/profiles/profiles_readparms.F

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

revision 1.3 by gforget, Fri Jul 14 20:19:36 2006 UTC revision 1.4 by gforget, Fri Jul 14 22:12:24 2006 UTC
# Line 52  c--     Set default values. Line 52  c--     Set default values.
52          enddo          enddo
53    
54          do num_file=1,NFILESPROFMAX          do num_file=1,NFILESPROFMAX
55           do num_var=1,4           do num_var=1,6
56            mult_profiles(num_file,num_var) = 0. _d 0            mult_profiles(num_file,num_var) = 0. _d 0
57           enddo           enddo
58          enddo          enddo
# Line 61  c--     Set default values. Line 61  c--     Set default values.
61        prof_names(2)='prof_S'        prof_names(2)='prof_S'
62        prof_names(3)='prof_U'        prof_names(3)='prof_U'
63        prof_names(4)='prof_V'        prof_names(4)='prof_V'
64          prof_names(5)='prof_ptr'
65          prof_names(6)='prof_ssh'
66        prof_namesmask(1)='prof_Tmask'        prof_namesmask(1)='prof_Tmask'
67        prof_namesmask(2)='prof_Smask'        prof_namesmask(2)='prof_Smask'
68        prof_namesmask(3)='prof_Umask'        prof_namesmask(3)='prof_Umask'
69        prof_namesmask(4)='prof_Vmask'        prof_namesmask(4)='prof_Vmask'
70          prof_namesmask(5)='prof_ptrmask'
71          prof_namesmask(6)='prof_sshmask'
72        prof_namesweight(1)='prof_Tweight'        prof_namesweight(1)='prof_Tweight'
73        prof_namesweight(2)='prof_Sweight'        prof_namesweight(2)='prof_Sweight'
74        prof_namesweight(3)='prof_Uweight'        prof_namesweight(3)='prof_Uweight'
75        prof_namesweight(4)='prof_Vweight'        prof_namesweight(4)='prof_Vweight'
76          prof_namesweight(5)='prof_ptrweight'
77          prof_namesweight(6)='prof_sshweight'
78        profilesfile_equi_type=2        profilesfile_equi_type=2
79    
80  c--     Next, read the cost data file.  c--     Next, read the cost data file.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22