/[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.5 by heimbach, Sat Jul 13 02:47:32 2002 UTC revision 1.6 by heimbach, Fri Nov 29 13:38:37 2002 UTC
# Line 101  c     == local variables == Line 101  c     == local variables ==
101        character*( 80) adfname_kapgm        character*( 80) adfname_kapgm
102        character*( 80)   fname_tr1        character*( 80)   fname_tr1
103        character*( 80) adfname_tr1        character*( 80) adfname_tr1
104          character*( 80)   fname_sst
105          character*( 80) adfname_sst
106          character*( 80)   fname_sss
107          character*( 80) adfname_sss
108          character*( 80)   fname_hfacc
109          character*( 80) adfname_hfacc
110        character*( 80)   fname_efluxy        character*( 80)   fname_efluxy
111        character*( 80) adfname_efluxy        character*( 80) adfname_efluxy
112        character*( 80)   fname_efluxp        character*( 80)   fname_efluxp
113        character*( 80) adfname_efluxp        character*( 80) adfname_efluxp
114          character*( 80)   fname_bottomdrag
115          character*( 80) adfname_bottomdrag
116    
117        logical lxxadxx        logical lxxadxx
118    
# Line 164  c--   Assign file names. Line 172  c--   Assign file names.
172        call ctrl_set_fname(        call ctrl_set_fname(
173       I     xx_tr1_file, fname_tr1, adfname_tr1, mythid )       I     xx_tr1_file, fname_tr1, adfname_tr1, mythid )
174        call ctrl_set_fname(        call ctrl_set_fname(
175         I     xx_sst_file, fname_sst, adfname_sst, mythid )
176          call ctrl_set_fname(
177         I     xx_sss_file, fname_sss, adfname_sss, mythid )
178          call ctrl_set_fname(
179         I     xx_hfacc_file, fname_hfacc, adfname_hfacc, mythid )
180          call ctrl_set_fname(
181       I     xx_efluxy_file, fname_efluxy, adfname_efluxy, mythid )       I     xx_efluxy_file, fname_efluxy, adfname_efluxy, mythid )
182        call ctrl_set_fname(        call ctrl_set_fname(
183       I     xx_efluxp_file, fname_efluxp, adfname_efluxp, mythid )       I     xx_efluxp_file, fname_efluxp, adfname_efluxp, mythid )
184          call ctrl_set_fname(
185         I     xx_bottomdrag_file, fname_bottomdrag, adfname_bottomdrag
186         I   , mythid )
187    
188  c  c
189  c--     Only the master thread will do I/O.  c--     Only the master thread will do I/O.
# Line 365  c--       Header information. Line 382  c--       Header information.
382       &         wunit, lxxadxx, mythid)       &         wunit, lxxadxx, mythid)
383  #endif  #endif
384    
385  cph(  #ifdef ALLOW_SST0_CONTROL
386            print *, 'ph-nondim bef. vor 21'            ivartype = 18
387            print *, 'ph-nondim aft. vor 21'            write(weighttype(1:80),'(80a)') ' '
388  cph)            write(weighttype(1:80),'(a)') "wsst0"
389              call ctrl_set_pack_xy(
390         &         cunit, ivartype, adfname_sst0, "hFacC", weighttype,
391         &         lxxadxx, mythid)
392    #endif
393    
394    #ifdef ALLOW_SSS0_CONTROL
395              ivartype = 19
396              write(weighttype(1:80),'(80a)') ' '
397              write(weighttype(1:80),'(a)') "wsss0"
398              call ctrl_set_pack_xy(
399         &         cunit, ivartype, adfname_sss0, "hFacC", weighttype,
400         &         lxxadxx, mythid)
401    #endif
402    
403    #ifdef ALLOW_HFACC_CONTROL
404              ivartype = 20
405    #ifdef ALLOW_HFACC3D_CONTROL
406              call ctrl_set_pack_xyz(
407         &         cunit, ivartype, adfname_hfacc, "hFacC",
408         &         wunit, lxxadxx, mythid)
409    #else
410              write(weighttype(1:80),'(80a)') ' '
411              write(weighttype(1:80),'(a)') "whfacc"
412              call ctrl_set_pack_xy(
413         &         cunit, ivartype, adfname_hfacc, "hFacC", weighttype,
414         &         lxxadxx, mythid)
415    #endif
416    #endif
417    
418  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
419            ivartype = 21            ivartype = 21
420            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
421       &         cunit, ivartype, adfname_efluxy, "hFacS",       &         cunit, ivartype, adfname_efluxy, "hFacS",
422       &         wefluxy, lxxadxx, mythid)       &         wunit, lxxadxx, mythid)
423  #endif  #endif
424    
 cph(  
           print *, 'ph-nondim bef. vor 22'  
           print *, 'ph-nondim aft. vor 22'  
 cph)  
425  #ifdef ALLOW_EFLUXP0_CONTROL  #ifdef ALLOW_EFLUXP0_CONTROL
426            ivartype = 22            ivartype = 22
427            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
428       &         cunit, ivartype, adfname_efluxp, "hFacV",       &         cunit, ivartype, adfname_efluxp, "hFacV",
429       &         wefluxp, lxxadxx, mythid)       &         wunit, lxxadxx, mythid)
430    #endif
431    
432    #ifdef ALLOW_BOTTOMDRAG_CONTROL
433              ivartype = 23
434              write(weighttype(1:80),'(80a)') ' '
435              write(weighttype(1:80),'(a)') "wbottomdrag"
436              call ctrl_set_pack_xy(
437         &         cunit, ivartype, adfname_bottomdrag, "hFacC", weighttype,
438         &         lxxadxx, mythid)
439  #endif  #endif
440    
 cph(  
           print *, 'ph-nondim bef. ende'  
           print *, 'ph-nondim aft. ende'  
 cph)  
441            close ( cunit )            close ( cunit )
442    
443          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22