/[MITgcm]/MITgcm/compare01/src/set_defaults.F
ViewVC logotype

Diff of /MITgcm/compare01/src/set_defaults.F

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

revision 1.4 by cnh, Mon Jun 15 05:13:54 1998 UTC revision 1.5 by adcroft, Tue Jun 23 13:36:42 1998 UTC
# Line 97  C Line 97  C
97        CP          = 3900.D0        CP          = 3900.D0
98  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNORE  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNORE
99    
100         delT       = 3600.D0         delT       = 2400.D0
101        freeSurfFac = 1.D0        freeSurfFac = 1.D0
102         startTime  = 0.         startTime  = 0.
103        endTime     = startTime+10.*delT        endTime     = startTime+10.*delT
# Line 414  C      tAlpha     = 0.D-4 Line 414  C      tAlpha     = 0.D-4
414    
415  C     Numerics parameters  C     Numerics parameters
416        abEps     = 0.1        abEps     = 0.1
417        rAja      = 9.887999800888535E-01        rAja      = 9.925333200592357E-01
418  C     rAja      = 0.  C     rAja      = 0.
419        dUnit               = 10        dUnit               = 10
420        scrUnit1            = 11        scrUnit1            = 11
# Line 463  C       fu(i,j) = -tauMax Line 463  C       fu(i,j) = -tauMax
463        OPEN ( 11, FILE='windx', STATUS='old' , FORM='unformatted')        OPEN ( 11, FILE='windx', STATUS='old' , FORM='unformatted')
464        READ (11) tmpXY        READ (11) tmpXY
465  C     Fu = tmpXY/DELPS(1)*G*0.1*uMask(_I3(1,:,:))           ! Dynes/cm**2 -> m/s**2  C     Fu = tmpXY/DELPS(1)*G*0.1*uMask(_I3(1,:,:))           ! Dynes/cm**2 -> m/s**2
466        Fu = tmpXY/DELPS(1)*G*0.1        Fu = tmpXY/DELPS(1)*G
467        Fu = 0.1/DELPS(1)*G  C     Fu = 0.1/DELPS(1)*G
468        CLOSE(11)        CLOSE(11)
469    
470        OPEN ( 11, FILE='windy', STATUS='old' , FORM='unformatted')        OPEN ( 11, FILE='windy', STATUS='old' , FORM='unformatted')
471        READ (11) tmpXY        READ (11) tmpXY
472  C     Fu = tmpXY/DELPS(1)*G*0.1*uMask(_I3(1,:,:))           ! Dynes/cm**2 -> m/s**2  C     Fu = tmpXY/DELPS(1)*G*0.1*uMask(_I3(1,:,:))           ! Dynes/cm**2 -> m/s**2
473        Fv = tmpXY/DELPS(1)*G*0.        Fv = tmpXY/DELPS(1)*G
474        CLOSE(11)        CLOSE(11)
475    
476  C  C
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22