/[MITgcm]/MITgcm/pkg/fizhi/update_earth_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_earth_exports.F

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

revision 1.16 by molod, Mon Jul 26 18:45:17 2004 UTC revision 1.17 by molod, Mon Jul 26 20:15:05 2004 UTC
# Line 903  C finally some transformations back to g Line 903  C finally some transformations back to g
903        call msc2grd(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland,        call msc2grd(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland,
904       .                                     fracg,tmpij,im,jm)       .                                     fracg,tmpij,im,jm)
905    
       print *,' back from first msc2grd call '  
       stop  
   
906        DO I=1,IM        DO I=1,IM
907        DO J=1,JM        DO J=1,JM
908         albvr(i,j,bi,bj) = tmpij(i,j)         albvr(i,j,bi,bj) = tmpij(i,j)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22