/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

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

revision 1.28 by edhill, Mon Jan 24 04:40:35 2005 UTC revision 1.29 by edhill, Mon Feb 28 17:53:29 2005 UTC
# Line 459  C         Write the variable one vector Line 459  C         Write the variable one vector
459          DO j1 = s(1),e(1)          DO j1 = s(1),e(1)
460            k1 = k2 + j1            k1 = k2 + j1
461            kr = kr + 1            kr = kr + 1
462            resh_i(kr) = var(k1)            resh_i(kr) = MNC2I( var(k1) )
463          ENDDO          ENDDO
464          err = NF_PUT_VARA_INT(fid, idv, vstart, vcount, resh_i)          err = NF_PUT_VARA_INT(fid, idv, vstart, vcount, resh_i)
465        ENDIF        ENDIF
# Line 833  C         Read the variable one vector a Line 833  C         Read the variable one vector a
833          DO j1 = s(1),e(1)          DO j1 = s(1),e(1)
834            k1 = k2 + j1            k1 = k2 + j1
835            kr = kr + 1            kr = kr + 1
836            var(k1) = resh_d(kr)            var(k1) = MNCI2( resh_d(kr) )
837          ENDDO          ENDDO
838        ENDIF        ENDIF
839        IF (stype(1:1) .EQ. 'R') THEN        IF (stype(1:1) .EQ. 'R') THEN
# Line 842  C         Read the variable one vector a Line 842  C         Read the variable one vector a
842          DO j1 = s(1),e(1)          DO j1 = s(1),e(1)
843            k1 = k2 + j1            k1 = k2 + j1
844            kr = kr + 1            kr = kr + 1
845            var(k1) = resh_r(kr)            var(k1) = MNCI2( resh_r(kr) )
846          ENDDO          ENDDO
847        ENDIF        ENDIF
848        IF (stype(1:1) .EQ. 'I') THEN        IF (stype(1:1) .EQ. 'I') THEN
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22