/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

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

revision 1.179 by jmc, Thu Feb 23 16:46:47 2006 UTC revision 1.180 by jmc, Tue Mar 7 15:28:02 2006 UTC
# Line 31  C                            Units are t Line 31  C                            Units are t
31  C                            i.e. cartesian => metres  C                            i.e. cartesian => metres
32  C                                  s. polar => degrees  C                                  s. polar => degrees
33  C     deltaTtracer :: Timestep for tracer equations ( s )  C     deltaTtracer :: Timestep for tracer equations ( s )
34    C     forcing_In_AB :: flag to put all forcings (Temp,Salt,Tracers,Momentum)
35    C                      contribution in (or out of) Adams-Bashforth time stepping.
36  C     goptCount - Used to count the nuber of grid options  C     goptCount - Used to count the nuber of grid options
37  C                 (only one is allowed! )  C                 (only one is allowed! )
38  C     msgBuf    - Informational/error meesage buffer  C     msgBuf    - Informational/error meesage buffer
# Line 44  C     xxxDefault - Default value for var Line 46  C     xxxDefault - Default value for var
46        _RL deltaTtracer        _RL deltaTtracer
47        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
48        CHARACTER*(MAX_LEN_PREC) record        CHARACTER*(MAX_LEN_PREC) record
49          LOGICAL forcing_In_AB
50        INTEGER goptCount        INTEGER goptCount
51        INTEGER K, i, j, IL, iUnit        INTEGER K, i, j, IL, iUnit
52        INTEGER errIO        INTEGER errIO
# Line 200  C--   Time stepping parammeters Line 203  C--   Time stepping parammeters
203       & nIter0, nTimeSteps, nEndIter, pickupSuff,       & nIter0, nTimeSteps, nEndIter, pickupSuff,
204       & deltaT, deltaTClock, deltaTmom,       & deltaT, deltaTClock, deltaTmom,
205       & deltaTtracer, dTtracerLev, deltaTfreesurf,       & deltaTtracer, dTtracerLev, deltaTfreesurf,
206       & forcing_In_AB, doAB_onGtGs,       & forcing_In_AB, momForcingOutAB, tracForcingOutAB,
207         & momDissip_In_AB, doAB_onGtGs,
208       & abEps, alph_AB, beta_AB, startFromPickupAB2,       & abEps, alph_AB, beta_AB, startFromPickupAB2,
209       & tauCD, rCD,       & tauCD, rCD,
210       & baseTime, startTime, endTime, chkPtFreq,       & baseTime, startTime, endTime, chkPtFreq,
# Line 763  C--   Time stepping parameters Line 767  C--   Time stepping parameters
767        rCD               = -1.D0        rCD               = -1.D0
768        latBandClimRelax  = UNSET_RL        latBandClimRelax  = UNSET_RL
769        deltaTtracer      = 0. _d 0        deltaTtracer      = 0. _d 0
770          forcing_In_AB     = .TRUE.
771        WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM03'        WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM03'
772        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
773       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
# Line 859  C it is better to set deltaTreesurf=delt Line 864  C it is better to set deltaTreesurf=delt
864          STOP 'ABNORMAL END: S/R INI_PARMS'          STOP 'ABNORMAL END: S/R INI_PARMS'
865         ENDIF         ENDIF
866        ENDIF        ENDIF
867    C     o Adams-Bashforth time stepping:
868          IF ( momForcingOutAB  .EQ. UNSET_I ) THEN
869            momForcingOutAB  = 1
870            IF ( forcing_In_AB ) momForcingOutAB  = 0
871          ENDIF
872          IF ( tracForcingOutAB .EQ. UNSET_I ) THEN
873            tracForcingOutAB = 1
874            IF ( forcing_In_AB ) tracForcingOutAB = 0
875          ENDIF
876  C     o Convection frequency  C     o Convection frequency
877        IF ( cAdjFreq .LT. 0. ) THEN        IF ( cAdjFreq .LT. 0. ) THEN
878         cAdjFreq = deltaTClock         cAdjFreq = deltaTClock
Legend:
Removed from v.1.179  
changed lines
  Added in v.1.180
  ViewVC Help
Powered by ViewVC 1.1.22