/[MITgcm]/MITgcm/pkg/mnc/mnc_var.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_var.F

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

revision 1.19 by edhill, Fri Feb 24 20:39:10 2006 UTC revision 1.20 by edhill, Fri Mar 10 05:50:23 2006 UTC
# Line 225  C     Add the variable definition Line 225  C     Add the variable definition
225        ENDIF        ENDIF
226    
227  C     Success, so save the variable info  C     Success, so save the variable info
228        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv, myThid)        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,'mnc_v_names',
229         &     indv, myThid)
230        mnc_v_names(indv)(1:lenv) = vname(1:lenv)        mnc_v_names(indv)(1:lenv) = vname(1:lenv)
231        nv = mnc_fv_ids(indf,1)        nv = mnc_fv_ids(indf,1)
232        i = 2 + nv*3        i = 2 + nv*3
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22