/[lmdze]/trunk/dyn3d/gcm.f
ViewVC logotype

Diff of /trunk/dyn3d/gcm.f

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

revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC revision 109 by guez, Wed Sep 17 10:08:00 2014 UTC
# Line 35  PROGRAM gcm Line 35  PROGRAM gcm
35    use tracstoke, only: istdyn, istphy    use tracstoke, only: istdyn, istphy
36    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml
37    use yoethf_m, only: yoethf    use yoethf_m, only: yoethf
38    use write_field, only: NbField, FieldId    use write_field, only: NbField, Ncid
39    
40    IMPLICIT NONE    IMPLICIT NONE
41    
# Line 155  PROGRAM gcm Line 155  PROGRAM gcm
155    call histclo    call histclo
156    
157    do i = 1, nbfield    do i = 1, nbfield
158       call nf95_close(FieldId(i))       call nf95_close(Ncid(i))
159    end do    end do
160    
161    print *, 'Simulation finished'    print *, 'Simulation finished'
Legend:
Removed from v.108  
changed lines
  Added in v.109
  ViewVC Help
Powered by ViewVC 1.1.21