/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_calc_rtrans.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_calc_rtrans.F

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

revision 1.2 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.3 by jmc, Tue Oct 19 02:43:06 2004 UTC
# Line 67  CEOP Line 67  CEOP
67    
68  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
69        IF ( k.EQ.Nr+1 .AND.        IF ( k.EQ.Nr+1 .AND.
70       &     useRealFreshWaterFlux .AND.       &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
      &     buoyancyRelation .EQ. 'OCEANICP' ) THEN  
71          DO j=1-OLy+1,sNy+OLy          DO j=1-OLy+1,sNy+OLy
72           DO i=1-OLx+1,sNx+OLx           DO i=1-OLx+1,sNx+OLx
73            rTransU(i,j) = convertEmP2rUnit*            rTransU(i,j) = convertEmP2rUnit*
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22