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

Diff of /MITgcm/pkg/ctrl/ctrl_init.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 129  c--   Read the namelist input. Line 129  c--   Read the namelist input.
129       &  xx_diffkr_file,       &  xx_diffkr_file,
130       &  xx_kapgm_file,       &  xx_kapgm_file,
131       &  xx_tr1_file,       &  xx_tr1_file,
132         &  xx_sst_file,
133         &  xx_sss_file,
134         &  xx_hfacc_file,
135       &  xx_efluxy_file,       &  xx_efluxy_file,
136       &  xx_efluxp_file       &  xx_efluxp_file,
137         &  xx_bottomdrag_file
138    
139        namelist /ctrl_packnames/        namelist /ctrl_packnames/
140       &  yadmark, yctrlid,       &  yadmark, yctrlid,
# Line 201  c--     Set default values. Line 205  c--     Set default values.
205          xx_diffkr_file      = ' '          xx_diffkr_file      = ' '
206          xx_kapgm_file       = ' '          xx_kapgm_file       = ' '
207          xx_tr1_file         = ' '          xx_tr1_file         = ' '
208            xx_sst_file         = ' '
209            xx_sss_file         = ' '
210            xx_hfacc_file       = ' '
211          xx_efluxy_file      = ' '          xx_efluxy_file      = ' '
212          xx_efluxp_file      = ' '          xx_efluxp_file      = ' '
213            xx_bottomdrag_file  = ' '
214    
215          yadmark             = 'ad'          yadmark             = 'ad'
216          yctrlid             = 'MIT_CE_000'          yctrlid             = 'MIT_CE_000'
217          ctrlname            = ' '          ctrlname            = ' '
# Line 336  cph    index 15-16 reserved for mixing c Line 345  cph    index 15-16 reserved for mixing c
345  cph    index 17    reserved for passive tracer TR1  cph    index 17    reserved for passive tracer TR1
346  cph    index 18,19 reserved for sst, sss  cph    index 18,19 reserved for sst, sss
347  cph    index 20             for hFacC  cph    index 20             for hFacC
348  cph    index 21,22          for efluxy, efluxp  cph    index 21-22          for efluxy, efluxp
349    cph    index 23-24          for bottom drag
350  cph)  cph)
351    
352    c-------------------------------------------------------------------------------------------
353    c--
354  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
355  c--   Initial state temperature contribution.  c--   Initial state temperature contribution.
356    
# Line 354  c--   Initial state temperature contribu Line 366  c--   Initial state temperature contribu
366    
367  #endif /* ALLOW_THETA0_CONTROL */  #endif /* ALLOW_THETA0_CONTROL */
368    
369    c-------------------------------------------------------------------------------------------
370    c--
371  #ifdef ALLOW_SALT0_CONTROL  #ifdef ALLOW_SALT0_CONTROL
372  c--   Initial state salinity contribution.  c--   Initial state salinity contribution.
373    
# Line 373  c--   =========================== Line 387  c--   ===========================
387  c--   Surface flux contributions.  c--   Surface flux contributions.
388  c--   ===========================  c--   ===========================
389    
390    c-------------------------------------------------------------------------------------------
391    c--
392  #if (defined (ALLOW_HFLUX_CONTROL))  #if (defined (ALLOW_HFLUX_CONTROL))
393  c--   Heat flux.  c--   Heat flux.
394    
# Line 440  c--   initial forcing only Line 456  c--   initial forcing only
456    
457  #endif /* ALLOW_HFLUX_CONTROL */  #endif /* ALLOW_HFLUX_CONTROL */
458    
459    c-------------------------------------------------------------------------------------------
460    c--
461  #if (defined (ALLOW_SFLUX_CONTROL))  #if (defined (ALLOW_SFLUX_CONTROL))
462  c--   Salt flux.  c--   Salt flux.
463    
# Line 507  c--   initial forcing only Line 525  c--   initial forcing only
525    
526  #endif /* ALLOW_SFLUX_CONTROL */  #endif /* ALLOW_SFLUX_CONTROL */
527    
528    c-------------------------------------------------------------------------------------------
529    c--
530  #if (defined (ALLOW_USTRESS_CONTROL))  #if (defined (ALLOW_USTRESS_CONTROL))
531  c--   Zonal wind stress.  c--   Zonal wind stress.
532    
# Line 574  c--   initial forcing only Line 594  c--   initial forcing only
594    
595  #endif /* ALLOW_USTRESS_CONTROL */  #endif /* ALLOW_USTRESS_CONTROL */
596    
597    c-------------------------------------------------------------------------------------------
598    c--
599  #if (defined (ALLOW_VSTRESS_CONTROL))  #if (defined (ALLOW_VSTRESS_CONTROL))
600  c--   Meridional wind stress.  c--   Meridional wind stress.
601    
# Line 641  c--   initial forcing only Line 663  c--   initial forcing only
663    
664  #endif /* ALLOW_VSTRESS_CONTROL */  #endif /* ALLOW_VSTRESS_CONTROL */
665    
666    c-------------------------------------------------------------------------------------------
667    c--
668  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
669  c--   Northern obc.  c--   Northern obc.
670    
# Line 674  c--   Northern obc. Line 698  c--   Northern obc.
698  c--   Southern obc.  c--   Southern obc.
699    
700        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
701    c-------------------------------------------------------------------------------------------
702    c--
703  #ifdef ALLOW_CALENDAR  #ifdef ALLOW_CALENDAR
704          call cal_TimePassed( xx_obcssstartdate, modelstartdate,          call cal_TimePassed( xx_obcssstartdate, modelstartdate,
705       &                       difftime, mythid )       &                       difftime, mythid )
# Line 699  c--   Southern obc. Line 725  c--   Southern obc.
725    
726  #endif /* ALLOW_OBCSS_CONTROL */  #endif /* ALLOW_OBCSS_CONTROL */
727    
728    c-------------------------------------------------------------------------------------------
729    c--
730  #ifdef ALLOW_OBCSW_CONTROL  #ifdef ALLOW_OBCSW_CONTROL
731  c--   Western obc.  c--   Western obc.
732    
# Line 728  c--   Western obc. Line 756  c--   Western obc.
756    
757  #endif /* ALLOW_OBCSW_CONTROL */  #endif /* ALLOW_OBCSW_CONTROL */
758    
759    c-------------------------------------------------------------------------------------------
760    c--
761  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
762  c--   Eastern obc.  c--   Eastern obc.
763    
# Line 757  c--   Eastern obc. Line 787  c--   Eastern obc.
787    
788  #endif /* ALLOW_OBCSE_CONTROL */  #endif /* ALLOW_OBCSE_CONTROL */
789    
790    c-------------------------------------------------------------------------------------------
791    c--
792  #ifdef ALLOW_DIFFKR_CONTROL  #ifdef ALLOW_DIFFKR_CONTROL
793        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
794          ivarindex                = 15          ivarindex                = 15
# Line 769  c--   Eastern obc. Line 801  c--   Eastern obc.
801        _END_MASTER( mythid )        _END_MASTER( mythid )
802  #endif /* ALLOW_DIFFKR_CONTROL */  #endif /* ALLOW_DIFFKR_CONTROL */
803    
804    c-------------------------------------------------------------------------------------------
805    c--
806  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
807        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
808          ivarindex                = 16          ivarindex                = 16
# Line 781  c--   Eastern obc. Line 815  c--   Eastern obc.
815        _END_MASTER( mythid )        _END_MASTER( mythid )
816  #endif /* ALLOW_KAPGM_CONTROL */  #endif /* ALLOW_KAPGM_CONTROL */
817    
818    c-------------------------------------------------------------------------------------------
819    c--
820  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
821        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
822          ivarindex                = 17          ivarindex                = 17
# Line 793  c--   Eastern obc. Line 829  c--   Eastern obc.
829        _END_MASTER( mythid )        _END_MASTER( mythid )
830  #endif /* ALLOW_TR10_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
831    
832    c-------------------------------------------------------------------------------------------
833    c--
834    #ifdef ALLOW_SST0_CONTROL
835          _BEGIN_MASTER( mythid )
836            ivarindex                = 18
837            ncvarindex(ivarindex)    = 118
838            ncvarrecs (ivarindex)    =   1
839            ncvarxmax (ivarindex)    = snx
840            ncvarymax (ivarindex)    = sny
841            ncvarnrmax(ivarindex)    =   1
842            ncvargrd  (ivarindex)    = 'c'
843          _END_MASTER( mythid )
844    #endif /* ALLOW_SST0_CONTROL */
845    
846    c-------------------------------------------------------------------------------------------
847    c--
848    #ifdef ALLOW_SSS0_CONTROL
849          _BEGIN_MASTER( mythid )
850            ivarindex                = 19
851            ncvarindex(ivarindex)    = 119
852            ncvarrecs (ivarindex)    =   1
853            ncvarxmax (ivarindex)    = snx
854            ncvarymax (ivarindex)    = sny
855            ncvarnrmax(ivarindex)    =   1
856            ncvargrd  (ivarindex)    = 'c'
857          _END_MASTER( mythid )
858    #endif /* ALLOW_SSS0_CONTROL */
859    
860    c-------------------------------------------------------------------------------------------
861    c--
862    #ifdef ALLOW_HFACC_CONTROL
863          _BEGIN_MASTER( mythid )
864            ivarindex                = 20
865            ncvarindex(ivarindex)    = 120
866            ncvarrecs (ivarindex)    =   1
867            ncvarxmax (ivarindex)    = snx
868            ncvarymax (ivarindex)    = sny
869            ncvargrd  (ivarindex)    = 'c'
870    #ifdef ALLOW_HFACC3D_CONTROL
871            ncvarnrmax(ivarindex)    =  nr
872    #else
873            ncvarnrmax(ivarindex)    =   1
874    #endif /*ALLOW_HFACC3D_CONTROL*/
875          _END_MASTER( mythid )
876    #endif /* ALLOW_HFACC_CONTROL */
877    
878    c-------------------------------------------------------------------------------------------
879    c--
880  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
881        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
882          ivarindex                = 21          ivarindex                = 21
# Line 805  c--   Eastern obc. Line 889  c--   Eastern obc.
889        _END_MASTER( mythid )        _END_MASTER( mythid )
890  #endif /* ALLOW_EFLUXY0_CONTROL */  #endif /* ALLOW_EFLUXY0_CONTROL */
891    
892    c-------------------------------------------------------------------------------------------
893    c--
894  #ifdef ALLOW_EFLUXP0_CONTROL  #ifdef ALLOW_EFLUXP0_CONTROL
895        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
896          ivarindex                = 22          ivarindex                = 22
# Line 817  c--   Eastern obc. Line 903  c--   Eastern obc.
903        _END_MASTER( mythid )        _END_MASTER( mythid )
904  #endif /* ALLOW_EFLUXP0_CONTROL */  #endif /* ALLOW_EFLUXP0_CONTROL */
905    
906    c-------------------------------------------------------------------------------------------
907    c--
908    #ifdef ALLOW_BOTTOMDRAG_CONTROL
909          _BEGIN_MASTER( mythid )
910            ivarindex                = 23
911            ncvarindex(ivarindex)    = 123
912            ncvarrecs (ivarindex)    =   1
913            ncvarxmax (ivarindex)    = snx
914            ncvarymax (ivarindex)    = sny
915            ncvarnrmax(ivarindex)    =   1
916            ncvargrd  (ivarindex)    = 'c'
917          _END_MASTER( mythid )
918    #endif /* ALLOW_BOTTOMDRAG_CONTROL */
919    
920    c-------------------------------------------------------------------------------------------
921    c-------------------------------------------------------------------------------------------
922    c-------------------------------------------------------------------------------------------
923    
924  c--   Determine the number of wet points in each tile:  c--   Determine the number of wet points in each tile:
925  c--   maskc, masks, and maskw.  c--   maskc, masks, and maskw.
926    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22