/[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.19 by heimbach, Thu Apr 7 23:38:43 2005 UTC
# Line 129  c--   Assign file names. Line 129  c--   Assign file names.
129        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
130        call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)        call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)
131        call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)        call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)
132          call ctrl_set_fname(xx_uvel_file, fname_uvel, mythid)
133          call ctrl_set_fname(xx_vvel_file, fname_vvel, mythid)
134          call ctrl_set_fname(xx_etan_file, fname_etan, mythid)
135          call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)
136          call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)
137    
138  c  c--   Only the master thread will do I/O.
 c--     Only the master thread will do I/O.  
139        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
140    
141        if ( first ) then        if ( first ) then
# Line 204  C     place holder of obsolete variable Line 208  C     place holder of obsolete variable
208            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
209            write(weighttype(1:80),'(a)') "wtheta"            write(weighttype(1:80),'(a)') "wtheta"
210            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
211       &         cunit, ivartype, fname_theta(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
212       &         weighttype, wtheta, lxxadxx, mythid)       &         weighttype, wtheta, lxxadxx, mythid)
213  #endif  #endif
214    
# Line 213  C     place holder of obsolete variable Line 217  C     place holder of obsolete variable
217            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
218            write(weighttype(1:80),'(a)') "wsalt"            write(weighttype(1:80),'(a)') "wsalt"
219            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
220       &         cunit, ivartype, fname_salt(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
221       &         weighttype, wsalt, lxxadxx, mythid)       &         weighttype, wsalt, lxxadxx, mythid)
222  #endif  #endif
223    
# Line 223  C     place holder of obsolete variable Line 227  C     place holder of obsolete variable
227            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
228            write(weighttype(1:80),'(a)') "whflux"            write(weighttype(1:80),'(a)') "whflux"
229            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
230       &         cunit, ivartype, fname_hflux(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
231       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
232  #endif  #endif
233    
# Line 233  C     place holder of obsolete variable Line 237  C     place holder of obsolete variable
237            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
238            write(weighttype(1:80),'(a)') "wsflux"            write(weighttype(1:80),'(a)') "wsflux"
239            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
240       &         cunit, ivartype, fname_sflux(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
241       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
242  #endif  #endif
243    
# Line 243  C     place holder of obsolete variable Line 247  C     place holder of obsolete variable
247            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
248            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
249            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
250       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskW",       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
251       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
252  #endif  #endif
253    
# Line 253  C     place holder of obsolete variable Line 257  C     place holder of obsolete variable
257            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
258            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
259            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
260       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskS",       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
261       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
262  #endif  #endif
263    
# Line 262  C     place holder of obsolete variable Line 266  C     place holder of obsolete variable
266            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
267            write(weighttype(1:80),'(a)') "watemp"            write(weighttype(1:80),'(a)') "watemp"
268            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
269       &         cunit, ivartype, fname_atemp(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
270       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
271  #endif  #endif
272    
# Line 271  C     place holder of obsolete variable Line 275  C     place holder of obsolete variable
275            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
276            write(weighttype(1:80),'(a)') "waqh"            write(weighttype(1:80),'(a)') "waqh"
277            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
278       &         cunit, ivartype, fname_aqh(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
279       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
280  #endif  #endif
281    
# Line 280  C     place holder of obsolete variable Line 284  C     place holder of obsolete variable
284            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
285            write(weighttype(1:80),'(a)') "wuwind"            write(weighttype(1:80),'(a)') "wuwind"
286            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
287       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskW",       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlW",
288       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
289  #endif  #endif
290    
# Line 289  C     place holder of obsolete variable Line 293  C     place holder of obsolete variable
293            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
294            write(weighttype(1:80),'(a)') "wvwind"            write(weighttype(1:80),'(a)') "wvwind"
295            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
296       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskS",       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlS",
297       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
298  #endif  #endif
299    
# Line 334  C     place holder of obsolete variable Line 338  C     place holder of obsolete variable
338            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
339            write(weighttype(1:80),'(a)') "wdiffkr"            write(weighttype(1:80),'(a)') "wdiffkr"
340            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
341       &         cunit, ivartype, fname_diffkr(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
342       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
343  #endif  #endif
344    
# Line 343  C     place holder of obsolete variable Line 347  C     place holder of obsolete variable
347            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
348            write(weighttype(1:80),'(a)') "wkapgm"            write(weighttype(1:80),'(a)') "wkapgm"
349            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
350       &         cunit, ivartype, fname_kapgm(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
351       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
352  #endif  #endif
353    
# Line 352  C     place holder of obsolete variable Line 356  C     place holder of obsolete variable
356            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
357            write(weighttype(1:80),'(a)') "wtr1"            write(weighttype(1:80),'(a)') "wtr1"
358            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
359       &         cunit, ivartype, fname_tr1(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
360       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
361  #endif  #endif
362    
# Line 361  C     place holder of obsolete variable Line 365  C     place holder of obsolete variable
365            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
366            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst0"
367            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
368       &         cunit, ivartype, fname_sst(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
369       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
370  #endif  #endif
371    
# Line 370  C     place holder of obsolete variable Line 374  C     place holder of obsolete variable
374            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
375            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss0"
376            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
377       &         cunit, ivartype, fname_sss(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
378       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
379  #endif  #endif
380    
# Line 380  C     place holder of obsolete variable Line 384  C     place holder of obsolete variable
384            write(weighttype(1:80),'(a)') "whfacc"            write(weighttype(1:80),'(a)') "whfacc"
385  # ifdef ALLOW_HFACC3D_CONTROL  # ifdef ALLOW_HFACC3D_CONTROL
386            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
387       &         cunit, ivartype, fname_hfacc(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
388       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
389  # else  # else
390            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
391       &         cunit, ivartype, fname_hfacc(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",
392       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
393  # endif  # endif
394  #endif  #endif
# Line 394  C     place holder of obsolete variable Line 398  C     place holder of obsolete variable
398            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
399            write(weighttype(1:80),'(a)') "wefluxy0"            write(weighttype(1:80),'(a)') "wefluxy0"
400            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
401       &         cunit, ivartype, fname_efluxy(ictrlgrad), "hFacS",       &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
402       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
403  #endif  #endif
404    
# Line 403  C     place holder of obsolete variable Line 407  C     place holder of obsolete variable
407            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
408            write(weighttype(1:80),'(a)') "wefluxp0"            write(weighttype(1:80),'(a)') "wefluxp0"
409            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
410       &         cunit, ivartype, fname_efluxp(ictrlgrad), "hFacV",       &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
411       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
412  #endif  #endif
413    
# Line 412  C     place holder of obsolete variable Line 416  C     place holder of obsolete variable
416            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
417            write(weighttype(1:80),'(a)') "wbottomdrag"            write(weighttype(1:80),'(a)') "wbottomdrag"
418            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
419       &         cunit, ivartype, fname_bottomdrag(ictrlgrad), "hFacC",       &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
420       &         weighttype, lxxadxx, mythid)       &      weighttype, lxxadxx, mythid)
421  #endif  #endif
422    
423  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDTAUX_CONTROL
# Line 421  C     place holder of obsolete variable Line 425  C     place holder of obsolete variable
425            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
426            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
427            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
428       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskW",       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
429       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
430  #endif  #endif
431    
# Line 430  C     place holder of obsolete variable Line 434  C     place holder of obsolete variable
434            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
435            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
436            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
437       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskS",       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
438       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
439  #endif  #endif
440    
441    #ifdef ALLOW_UVEL0_CONTROL
442              ivartype = 27
443              write(weighttype(1:80),'(80a)') ' '
444              write(weighttype(1:80),'(a)') "wuvel"
445              call ctrl_set_pack_xyz(
446         &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
447         &         weighttype, wunit, lxxadxx, mythid)
448    #endif
449    
450    #ifdef ALLOW_VVEL0_CONTROL
451              ivartype = 28
452              write(weighttype(1:80),'(80a)') ' '
453              write(weighttype(1:80),'(a)') "wvvel"
454              call ctrl_set_pack_xyz(
455         &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
456         &         weighttype, wunit, lxxadxx, mythid)
457    #endif
458    
459    #ifdef ALLOW_ETAN0_CONTROL
460              ivartype = 29
461              write(weighttype(1:80),'(80a)') ' '
462              write(weighttype(1:80),'(a)') "wetan"
463              call ctrl_set_pack_xy(
464         &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",
465         &         weighttype, lxxadxx, mythid)
466    #endif
467    
468    #ifdef ALLOW_RELAXSST_CONTROL
469              ivartype = 30
470              write(weighttype(1:80),'(80a)') ' '
471              write(weighttype(1:80),'(a)') "wrelaxsst"
472              call ctrl_set_pack_xy(
473         &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",
474         &         weighttype, lxxadxx, mythid)
475    #endif
476    
477    #ifdef ALLOW_RELAXSSS_CONTROL
478              ivartype = 31
479              write(weighttype(1:80),'(80a)') ' '
480              write(weighttype(1:80),'(a)') "wrelaxsss"
481              call ctrl_set_pack_xy(
482         &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",
483         &         weighttype, lxxadxx, mythid)
484    #endif
485    
486            close ( cunit )            close ( cunit )
487    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22