/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

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

revision 1.18 by heimbach, Mon Feb 28 17:29:38 2005 UTC revision 1.22 by heimbach, Thu Jul 28 19:51:22 2005 UTC
# Line 112  c--   Assign file names. Line 112  c--   Assign file names.
112        call ctrl_set_fname(xx_tauv_file, fname_tauv, mythid)        call ctrl_set_fname(xx_tauv_file, fname_tauv, mythid)
113        call ctrl_set_fname(xx_atemp_file, fname_atemp, mythid)        call ctrl_set_fname(xx_atemp_file, fname_atemp, mythid)
114        call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid)        call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid)
115          call ctrl_set_fname(xx_precip_file, fname_precip, mythid)
116          call ctrl_set_fname(xx_swflux_file, fname_swflux, mythid)
117        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)
118        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)
119        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)
# Line 129  c--   Assign file names. Line 131  c--   Assign file names.
131        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
132        call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)        call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)
133        call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)        call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)
134          call ctrl_set_fname(xx_uvel_file, fname_uvel, mythid)
135          call ctrl_set_fname(xx_vvel_file, fname_vvel, mythid)
136          call ctrl_set_fname(xx_etan_file, fname_etan, mythid)
137          call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)
138          call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)
139    
140  c  c--   Only the master thread will do I/O.
 c--     Only the master thread will do I/O.  
141        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
142    
143        if ( first ) then        if ( first ) then
# Line 204  C     place holder of obsolete variable Line 210  C     place holder of obsolete variable
210            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
211            write(weighttype(1:80),'(a)') "wtheta"            write(weighttype(1:80),'(a)') "wtheta"
212            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
213       &         cunit, ivartype, fname_theta(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
214       &         weighttype, wtheta, lxxadxx, mythid)       &         weighttype, wtheta, lxxadxx, mythid)
215  #endif  #endif
216    
# Line 213  C     place holder of obsolete variable Line 219  C     place holder of obsolete variable
219            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
220            write(weighttype(1:80),'(a)') "wsalt"            write(weighttype(1:80),'(a)') "wsalt"
221            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
222       &         cunit, ivartype, fname_salt(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
223       &         weighttype, wsalt, lxxadxx, mythid)       &         weighttype, wsalt, lxxadxx, mythid)
224  #endif  #endif
225    
# Line 223  C     place holder of obsolete variable Line 229  C     place holder of obsolete variable
229            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
230            write(weighttype(1:80),'(a)') "whflux"            write(weighttype(1:80),'(a)') "whflux"
231            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
232       &         cunit, ivartype, fname_hflux(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
233       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
234  #endif  #endif
235    
# Line 233  C     place holder of obsolete variable Line 239  C     place holder of obsolete variable
239            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
240            write(weighttype(1:80),'(a)') "wsflux"            write(weighttype(1:80),'(a)') "wsflux"
241            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
242       &         cunit, ivartype, fname_sflux(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
243       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
244  #endif  #endif
245    
# Line 243  C     place holder of obsolete variable Line 249  C     place holder of obsolete variable
249            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
250            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
251            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
252       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskW",       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
253       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
254  #endif  #endif
255    
# Line 253  C     place holder of obsolete variable Line 259  C     place holder of obsolete variable
259            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
260            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
261            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
262       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskS",       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
263       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
264  #endif  #endif
265    
# Line 262  C     place holder of obsolete variable Line 268  C     place holder of obsolete variable
268            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
269            write(weighttype(1:80),'(a)') "watemp"            write(weighttype(1:80),'(a)') "watemp"
270            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
271       &         cunit, ivartype, fname_atemp(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
272       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
273  #endif  #endif
274    
# Line 271  C     place holder of obsolete variable Line 277  C     place holder of obsolete variable
277            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
278            write(weighttype(1:80),'(a)') "waqh"            write(weighttype(1:80),'(a)') "waqh"
279            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
280       &         cunit, ivartype, fname_aqh(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
281       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
282  #endif  #endif
283    
# Line 280  C     place holder of obsolete variable Line 286  C     place holder of obsolete variable
286            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
287            write(weighttype(1:80),'(a)') "wuwind"            write(weighttype(1:80),'(a)') "wuwind"
288            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
289       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskW",       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
290       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
291  #endif  #endif
292    
# Line 289  C     place holder of obsolete variable Line 295  C     place holder of obsolete variable
295            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
296            write(weighttype(1:80),'(a)') "wvwind"            write(weighttype(1:80),'(a)') "wvwind"
297            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
298       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskS",       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
299       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
300  #endif  #endif
301    
# Line 334  C     place holder of obsolete variable Line 340  C     place holder of obsolete variable
340            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
341            write(weighttype(1:80),'(a)') "wdiffkr"            write(weighttype(1:80),'(a)') "wdiffkr"
342            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
343       &         cunit, ivartype, fname_diffkr(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
344       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
345  #endif  #endif
346    
# Line 343  C     place holder of obsolete variable Line 349  C     place holder of obsolete variable
349            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
350            write(weighttype(1:80),'(a)') "wkapgm"            write(weighttype(1:80),'(a)') "wkapgm"
351            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
352       &         cunit, ivartype, fname_kapgm(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
353       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
354  #endif  #endif
355    
# Line 352  C     place holder of obsolete variable Line 358  C     place holder of obsolete variable
358            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
359            write(weighttype(1:80),'(a)') "wtr1"            write(weighttype(1:80),'(a)') "wtr1"
360            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
361       &         cunit, ivartype, fname_tr1(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
362       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
363  #endif  #endif
364    
# Line 361  C     place holder of obsolete variable Line 367  C     place holder of obsolete variable
367            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
368            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst0"
369            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
370       &         cunit, ivartype, fname_sst(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
371       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
372  #endif  #endif
373    
# Line 370  C     place holder of obsolete variable Line 376  C     place holder of obsolete variable
376            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
377            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss0"
378            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
379       &         cunit, ivartype, fname_sss(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
380       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
381  #endif  #endif
382    
# Line 380  C     place holder of obsolete variable Line 386  C     place holder of obsolete variable
386            write(weighttype(1:80),'(a)') "whfacc"            write(weighttype(1:80),'(a)') "whfacc"
387  # ifdef ALLOW_HFACC3D_CONTROL  # ifdef ALLOW_HFACC3D_CONTROL
388            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
389       &         cunit, ivartype, fname_hfacc(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
390       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
391  # else  # else
392            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
393       &         cunit, ivartype, fname_hfacc(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
394       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
395  # endif  # endif
396  #endif  #endif
# Line 394  C     place holder of obsolete variable Line 400  C     place holder of obsolete variable
400            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
401            write(weighttype(1:80),'(a)') "wefluxy0"            write(weighttype(1:80),'(a)') "wefluxy0"
402            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
403       &         cunit, ivartype, fname_efluxy(ictrlgrad), "hFacS",       &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
404       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
405  #endif  #endif
406    
# Line 403  C     place holder of obsolete variable Line 409  C     place holder of obsolete variable
409            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
410            write(weighttype(1:80),'(a)') "wefluxp0"            write(weighttype(1:80),'(a)') "wefluxp0"
411            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
412       &         cunit, ivartype, fname_efluxp(ictrlgrad), "hFacV",       &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
413       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
414  #endif  #endif
415    
# Line 412  C     place holder of obsolete variable Line 418  C     place holder of obsolete variable
418            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
419            write(weighttype(1:80),'(a)') "wbottomdrag"            write(weighttype(1:80),'(a)') "wbottomdrag"
420            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
421       &         cunit, ivartype, fname_bottomdrag(ictrlgrad), "hFacC",       &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
422       &         weighttype, lxxadxx, mythid)       &      weighttype, lxxadxx, mythid)
423  #endif  #endif
424    
425  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDTAUX_CONTROL
# Line 421  C     place holder of obsolete variable Line 427  C     place holder of obsolete variable
427            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
428            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
429            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
430       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskW",       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
431       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
432  #endif  #endif
433    
# Line 430  C     place holder of obsolete variable Line 436  C     place holder of obsolete variable
436            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
437            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
438            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
439       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskS",       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
440         &         weighttype, wunit, lxxadxx, mythid)
441    #endif
442    
443    #ifdef ALLOW_UVEL0_CONTROL
444              ivartype = 27
445              write(weighttype(1:80),'(80a)') ' '
446              write(weighttype(1:80),'(a)') "wuvel"
447              call ctrl_set_pack_xyz(
448         &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
449         &         weighttype, wunit, lxxadxx, mythid)
450    #endif
451    
452    #ifdef ALLOW_VVEL0_CONTROL
453              ivartype = 28
454              write(weighttype(1:80),'(80a)') ' '
455              write(weighttype(1:80),'(a)') "wvvel"
456              call ctrl_set_pack_xyz(
457         &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
458       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
459  #endif  #endif
460    
461    #ifdef ALLOW_ETAN0_CONTROL
462              ivartype = 29
463              write(weighttype(1:80),'(80a)') ' '
464              write(weighttype(1:80),'(a)') "wetan"
465              call ctrl_set_pack_xy(
466         &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
467         &         weighttype, lxxadxx, mythid)
468    #endif
469    
470    #ifdef ALLOW_RELAXSST_CONTROL
471              ivartype = 30
472              write(weighttype(1:80),'(80a)') ' '
473              write(weighttype(1:80),'(a)') "wrelaxsst"
474              call ctrl_set_pack_xy(
475         &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
476         &         weighttype, lxxadxx, mythid)
477    #endif
478    
479    #ifdef ALLOW_RELAXSSS_CONTROL
480              ivartype = 31
481              write(weighttype(1:80),'(80a)') ' '
482              write(weighttype(1:80),'(a)') "wrelaxsss"
483              call ctrl_set_pack_xy(
484         &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
485         &         weighttype, lxxadxx, mythid)
486    #endif
487    
488    #ifdef ALLOW_PRECIP_CONTROL
489              ivartype = 32
490              write(weighttype(1:80),'(80a)') ' '
491              write(weighttype(1:80),'(a)') "wprecip"
492              call ctrl_set_pack_xy(
493         &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
494         &         weighttype, lxxadxx, mythid)
495    #endif
496    
497    #ifdef ALLOW_SWFLUX_CONTROL
498              ivartype = 33
499              write(weighttype(1:80),'(80a)') ' '
500              write(weighttype(1:80),'(a)') "wswflux"
501              call ctrl_set_pack_xy(
502         &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
503         &         weighttype, lxxadxx, mythid)
504    #endif
505    
506            close ( cunit )            close ( cunit )
507    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22