|
||||
File indexing completed on 2024-03-02 06:10:02 UTC
view on githubraw file Latest commit 5cf43646 on 2024-03-01 18:50:49 UTC5cf4364659 Mart*0001 #include "CTRL_OPTIONS.h" 4cee17c1be Patr*0002 0003 subroutine optim_write_control( 0004 I nv, 0005 I xx 65754df434 Mart*0006 & ) 4cee17c1be Patr*0007 0008 c ================================================================== 0009 c SUBROUTINE optim_write_control 0010 c ================================================================== 0011 c 0012 c o Interface routine for writing the next estimate of the control 0013 c vector that is to be used by the ocean state estimation program. 0014 c 0015 c started: Christian Eckert eckert@mit.edu 12-Apr-2000 0016 c 0017 c changed: Patrick Heimbach heimbach@mit.edu 19-Jun-2000 0018 c - finished, revised and debugged 0019 c 0020 c ================================================================== 0021 c SUBROUTINE optim_write_control 0022 c ================================================================== 0023 0024 implicit none 0025 0026 c == global variables == 0027 0028 #include "EEPARAMS.h" 0029 #include "SIZE.h" 5cf4364659 Mart*0030 #include "CTRL_SIZE.h" 65754df434 Mart*0031 #include "CTRL.h" 4cee17c1be Patr*0032 0033 c == routine arguments == 0034 0035 integer nv 0036 _RL xx(nv) 0037 0038 c == local variables == 0039 0040 _RL ff 0041 0042 logical lheaderonly 0043 0044 c == end of interface == 0045 0046 ff = -9999. 0047 0048 print *,'pathei: writing ', nv,' sized control to file', 0049 & ctrlname 0050 0051 lheaderonly = .false. 0052 call optim_writedata( nv, ctrlname, lheaderonly, ff, xx ) 0053 0054 return 0055 end 0056
[ 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 |