** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Wed, 7 Apr 2026 05:09:15 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/lsopt/outstore.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:36:19 UTC

view on githubraw file Latest commit 4cee17c1 on 2002-11-15 04:03:25 UTC
4cee17c1be Patr*0001       subroutine outstore( n, fc, gnorm0, m, jmin, jmax )
                0002 c
                0003 c         arguments
                0004 c
                0005       integer n, m, jmin, jmax
                0006       double precision    fc, gnorm0
                0007 c----
                0008 c
                0009       common /xxstore/ itape, ntape, isize
                0010       integer itape, ntape, isize
                0011 
                0012       open(  itape
                0013      $     , file   = 'OPWARMI'
                0014      $     , access = 'sequential'
                0015      $     , form   = 'formatted'  )
                0016       rewind (itape)
                0017 
                0018       write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax
                0019 
                0020       close(itape)
                0021 
                0022       return
                0023       end
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!