/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F

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

revision 1.3 by jahn, Wed Dec 4 21:21:49 2013 UTC revision 1.4 by jahn, Wed Dec 4 21:27:54 2013 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "DARWIN_OPTIONS.h"  #include "DARWIN_OPTIONS.h"
5    #ifdef ALLOW_EXF
6    #include "EXF_OPTIONS.h"
7    #endif
8    
9  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
10        SUBROUTINE DARWIN_INIT_FIXED(myThid )        SUBROUTINE DARWIN_INIT_FIXED(myThid )
# Line 15  C !USES: =============================== Line 18  C !USES: ===============================
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
21    #ifdef ALLOW_EXF
22    #include "EXF_PARAM.h"
23    #endif
24    #include "DARWIN_SIZE.h"
25    #include "DARWIN_IO.h"
26  #ifdef ALLOW_SPECTRAL  #ifdef ALLOW_SPECTRAL
27  #include "SPECTRAL_SIZE.h"  #include "SPECTRAL_SIZE.h"
28  #include "SPECTRAL_PARAMS.h"  #include "SPECTRAL_PARAMS.h"
# Line 28  CEOP Line 36  CEOP
36  #ifdef ALLOW_DARWIN  #ifdef ALLOW_DARWIN
37    
38  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
39          CHARACTER*(MAX_LEN_MBUF) msgBuf
40  #ifdef ALLOW_SPECTRAL  #ifdef ALLOW_SPECTRAL
41        INTEGER ilam        INTEGER ilam
42        _RL planck, c, hc, oavo, hcoavo, rlamm        _RL planck, c, hc, oavo, hcoavo, rlamm
# Line 48  c   Quanta conversion Line 57  c   Quanta conversion
57        enddo        enddo
58  #endif  #endif
59    
60    C which ice area fraction to use (by preference):
61    C 1. read from darwin_iceFile if given
62    C 2. read from areamaskfile through exf if given
63    C 3. use iceMask from THSICE if compiled and used
64    C 4. use AREA from seaice if compiled and used
65          darwin_useiceFile  = .FALSE.
66          darwin_useareamask = .FALSE.
67          darwin_useiceMask  = .FALSE.
68          darwin_useAREA     = .FALSE.
69          darwin_haveIce     = .FALSE.
70          IF ( darwin_iceFile .NE. ' '  ) THEN
71            darwin_useiceFile  = .TRUE.
72            darwin_haveIce = .TRUE.
73          ENDIF
74    #ifdef ALLOW_EXF
75          IF (.NOT.darwin_haveIce.AND.useEXF.AND.areamaskFile.NE.' ') THEN
76            darwin_useareamask = .TRUE.
77            darwin_haveIce = .TRUE.
78    #ifndef EXF_SEAICE_FRACTION
79            WRITE(msgBuf,'(2A)') 'S/R DARWIN_INIT_FIXED:',
80         &    ' you specified an areamaskfile but EXF_SEAICE_FRACTION'
81            CALL PRINT_ERROR( msgBuf , 1)
82            WRITE(msgBuf,'(2A)') 'S/R DARWIN_INIT_FIXED:',
83         &    ' is not defined.  You need to define it in EXF_OPTIONS.h'
84            CALL PRINT_ERROR( msgBuf , 1)
85            WRITE(msgBuf,'(2A)') 'S/R DARWIN_INIT_FIXED:',
86         &    ' in order to use areamaskfile.'
87            CALL PRINT_ERROR( msgBuf , 1)
88            STOP 'DARWIN_INIT_FIXED'
89    #endif
90          ENDIF
91    #endif
92    #ifdef ALLOW_THSICE
93          IF ( .NOT.darwin_haveIce .AND. useTHSICE ) THEN
94            darwin_useiceMask = .TRUE.
95            darwin_haveIce = .TRUE.
96          ENDIF
97    #endif
98    #ifdef ALLOW_SEAICE
99          IF ( .NOT.darwin_haveIce .AND. useSEAICE ) THEN
100            darwin_useAREA = .TRUE.
101            darwin_haveIce = .TRUE.
102          ENDIF
103    #endif
104    
105        _END_MASTER(myThid)        _END_MASTER(myThid)
106    
107  #ifdef ALLOW_QUOTA  #ifdef ALLOW_QUOTA
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22