Parent Directory | Revision Log | Revision Graph | Patch
revision 1.23 by mlosch, Thu May 22 12:21:19 2008 UTC | revision 1.24 by utke, Fri Jun 20 20:36:58 2008 UTC | |
---|---|---|
# | Line 108 C context. | Line 108 C context. |
108 | ||
109 | C !USES: | C !USES: |
110 | implicit none | implicit none |
#include "netcdf.inc" | ||
111 | #include "MNC_COMMON.h" | #include "MNC_COMMON.h" |
112 | #include "EEPARAMS.h" | #include "EEPARAMS.h" |
113 | #include "netcdf.inc" | |
114 | ||
115 | C !INPUT PARAMETERS: | C !INPUT PARAMETERS: |
116 | integer irv,myThid | integer irv,myThid |
# | Line 395 C General subroutine for adding attr | Line 395 C General subroutine for adding attr |
395 | ||
396 | C !USES: | C !USES: |
397 | implicit none | implicit none |
#include "netcdf.inc" | ||
398 | #include "MNC_COMMON.h" | #include "MNC_COMMON.h" |
399 | #include "EEPARAMS.h" | #include "EEPARAMS.h" |
400 | #include "netcdf.inc" | |
401 | ||
402 | C !INPUT PARAMETERS: | C !INPUT PARAMETERS: |
403 | integer myThid,atype,len | integer myThid,atype,len |
# | Line 581 C---+----1----+----2----+----3----+----4 | Line 581 C---+----1----+----2----+----3----+----4 |
581 | I myThid ) | I myThid ) |
582 | ||
583 | implicit none | implicit none |
#include "netcdf.inc" | ||
584 | #include "MNC_COMMON.h" | #include "MNC_COMMON.h" |
585 | #include "EEPARAMS.h" | #include "EEPARAMS.h" |
586 | #include "netcdf.inc" | |
587 | ||
588 | C Arguments | C Arguments |
589 | integer myThid, vtype | integer myThid, vtype |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |