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

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

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

revision 1.26 by adcroft, Mon May 24 15:42:23 1999 UTC revision 1.27 by adcroft, Tue Mar 14 17:47:25 2000 UTC
# Line 171  C           defaults to 0.51 but can be Line 171  C           defaults to 0.51 but can be
171       &     rA(I-1,J,bi,bj)/deltaTMom/deltaTMom       &     rA(I-1,J,bi,bj)/deltaTMom/deltaTMom
172       &    )       &    )
173            IF ( aC .EQ. 0. ) THEN            IF ( aC .EQ. 0. ) THEN
174              pC(I,J,bi,bj) = 0. _d 0              pC(I,J,bi,bj) = 1. _d 0
175            ELSE            ELSE
176             pC(I,J,bi,bj) =  1. _d 0 / aC             pC(I,J,bi,bj) =  1. _d 0 / aC
177            ENDIF            ENDIF
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22