/[MITgcm]/MITgcm/pkg/exf/exf_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_summary.F

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

revision 1.7 by dimitri, Mon Oct 20 06:25:16 2003 UTC revision 1.11 by heimbach, Wed Apr 18 19:55:34 2007 UTC
# Line 1  Line 1 
1  c $Header$  C $Header$
2    C $Name$
3    
4  #include "EXF_OPTIONS.h"  #include "EXF_OPTIONS.h"
5    
6    
7        subroutine exf_Summary(        subroutine exf_summary( mythid )
      I                        mythid  
      &                      )  
8    
9  c     ==================================================================  c     ==================================================================
10  c     SUBROUTINE exf_Summary  c     SUBROUTINE exf_summary
11  c     ==================================================================  c     ==================================================================
12  c  c
13  c     o List all the settings of the external forcing.  c     o List all the settings of the external forcing.
# Line 26  c     changed: Dimitris Menemenlis menem Line 25  c     changed: Dimitris Menemenlis menem
25  c              - modifications for using pkg/exf with pkg/seaice  c              - modifications for using pkg/exf with pkg/seaice
26  c  c
27  c     ==================================================================  c     ==================================================================
28  c     SUBROUTINE exf_Summary  c     SUBROUTINE exf_summary
29  c     ==================================================================  c     ==================================================================
30    
31        implicit none        implicit none
# Line 36  c     == global variables == Line 35  c     == global variables ==
35  #include "EEPARAMS.h"  #include "EEPARAMS.h"
36  #include "SIZE.h"  #include "SIZE.h"
37  #include "cal.h"  #include "cal.h"
38  #include "exf.h"  #include "EXF_PARAM.h"
 #include "exf_param.h"  
39    
40  c     == routine arguments ==  c     == routine arguments ==
41    
# Line 78  c     == end of interface == Line 76  c     == end of interface ==
76       &' '       &' '
77        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
78       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
       write(msgbuf,'(a,a)')  
      &'External forcing version: ',externalforcingversion  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a,a)')  
      &'Uses Calendar version:    ',usescalendarversion  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
79        write(msgbuf,'(a)')        write(msgbuf,'(a)')
80       &' '       &' '
81        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
# Line 593  c--   Atmospheric pressure. Line 583  c--   Atmospheric pressure.
583        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
584       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
585        write(msgbuf,'(a)')        write(msgbuf,'(a)')
586         &'// ======================================================='
587          call print_message( msgbuf, standardmessageunit,
588         &                    SQUEEZE_RIGHT , mythid)
589          write(msgbuf,'(a)')
590         &' '
591          call print_message( msgbuf, standardmessageunit,
592         &                    SQUEEZE_RIGHT , mythid)
593    
594          write(msgbuf,'(a)')
595         &' '
596          call print_message( msgbuf, standardmessageunit,
597         &                    SQUEEZE_RIGHT , mythid)
598          write(msgbuf,'(a)')
599         &'// ======================================================='
600          call print_message( msgbuf, standardmessageunit,
601         &                    SQUEEZE_RIGHT , mythid)
602          write(msgbuf,'(a)')
603         &'// External forcing climatology configuration >>> START <<<'
604          call print_message( msgbuf, standardmessageunit,
605         &                    SQUEEZE_RIGHT , mythid)
606          write(msgbuf,'(a)')
607         &'// ======================================================='
608          call print_message( msgbuf, standardmessageunit,
609         &                    SQUEEZE_RIGHT , mythid)
610          write(msgbuf,'(a)')
611         &' '
612          call print_message( msgbuf, standardmessageunit,
613         &                    SQUEEZE_RIGHT , mythid)
614          call print_message( msgbuf, standardmessageunit,
615         &                    SQUEEZE_RIGHT , mythid)
616    
617    c     For each data set used the summary prints the calendar data
618    c     and the corresponding file from which the data will be read.
619    
620    #ifdef ALLOW_CLIMSST_RELAXATION
621          write(msgbuf,'(a)')
622         &'// ALLOW_CLIMSST_RELAXATION:           defined'
623          call print_message( msgbuf, standardmessageunit,
624         &                    SQUEEZE_RIGHT , mythid)
625    #else
626          write(msgbuf,'(a)')
627         &'// ALLOW_CLIMSST_RELAXATION:       NOT defined'
628          call print_message( msgbuf, standardmessageunit,
629         &                    SQUEEZE_RIGHT , mythid)
630    #endif
631    
632    #ifdef ALLOW_CLIMSSS_RELAXATION
633          write(msgbuf,'(a)')
634         &'// ALLOW_CLIMSSS_RELAXATION:           defined'
635          call print_message( msgbuf, standardmessageunit,
636         &                    SQUEEZE_RIGHT , mythid)
637    #else
638          write(msgbuf,'(a)')
639         &'// ALLOW_CLIMSSS_RELAXATION:       NOT defined'
640          call print_message( msgbuf, standardmessageunit,
641         &                    SQUEEZE_RIGHT , mythid)
642    #endif
643    
644    c     The climatological data sets are assumed to contain monthly
645    c     data. This can be changed in a later version to an arbitrary
646    c     number of intervals during a given year.
647    
648    #ifdef ALLOW_CLIMSST_RELAXATION
649    c     Relaxation to SST climatology.
650          il = ilnblnk(climsstfile)
651          write(msgbuf,'(a)')
652         &' '
653          call print_message( msgbuf, standardmessageunit,
654         &                    SQUEEZE_RIGHT , mythid)
655          write(msgbuf,'(a,f12.0)')
656         &'   Climatological SST starts at         ',
657         &    climsststartdate
658          call print_message( msgbuf, standardmessageunit,
659         &                    SQUEEZE_RIGHT , mythid)
660          write(msgbuf,'(a,f12.0)')
661         &'   Climatological SST period is         ',
662         &    climsstperiod
663          call print_message( msgbuf, standardmessageunit,
664         &                    SQUEEZE_RIGHT , mythid)
665          write(msgbuf,'(a)')
666         &'   Climatological SST is read from file:'
667          call print_message( msgbuf, standardmessageunit,
668         &                    SQUEEZE_RIGHT , mythid)
669          write(msgbuf,'(a,a,a)')
670         &'   >>  ',climsstfile(1:il),'  <<'
671          call print_message( msgbuf, standardmessageunit,
672         &                    SQUEEZE_RIGHT , mythid)
673    #endif
674    
675    #ifdef ALLOW_CLIMSSS_RELAXATION
676    c     Relaxation to SSS climatology.
677          il = ilnblnk(climsssfile)
678          write(msgbuf,'(a)')
679         &' '
680          call print_message( msgbuf, standardmessageunit,
681         &                    SQUEEZE_RIGHT , mythid)
682          write(msgbuf,'(a,f12.0)')
683         &'   Climatological SSS starts at         ',
684         &    climsssstartdate
685          call print_message( msgbuf, standardmessageunit,
686         &                    SQUEEZE_RIGHT , mythid)
687          write(msgbuf,'(a,f12.0)')
688         &'   Climatological SSS period is         ',
689         &    climsssperiod
690          call print_message( msgbuf, standardmessageunit,
691         &                    SQUEEZE_RIGHT , mythid)
692          write(msgbuf,'(a)')
693         &'   Climatological SSS is read from file:'
694          call print_message( msgbuf, standardmessageunit,
695         &                    SQUEEZE_RIGHT , mythid)
696          write(msgbuf,'(a,a,a)')
697         &'   >>  ',climsssfile(1:il),'  <<'
698          call print_message( msgbuf, standardmessageunit,
699         &                    SQUEEZE_RIGHT , mythid)
700    #endif
701    
702          write(msgbuf,'(a)')
703         &' '
704          call print_message( msgbuf, standardmessageunit,
705         &                    SQUEEZE_RIGHT , mythid)
706          write(msgbuf,'(a)')
707         &'// ======================================================='
708          call print_message( msgbuf, standardmessageunit,
709         &                    SQUEEZE_RIGHT , mythid)
710          write(msgbuf,'(a)')
711         &'// External forcing climatology configuration  >>> END <<<'
712          call print_message( msgbuf, standardmessageunit,
713         &                    SQUEEZE_RIGHT , mythid)
714          write(msgbuf,'(a)')
715       &'// ======================================================='       &'// ======================================================='
716        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
717       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22