29 |
|
|
30 |
C !DESCRIPTION: |
C !DESCRIPTION: |
31 |
C *============================================================* |
C *============================================================* |
32 |
C | SUBROUTINE PRINT_ERROR |
C | SUBROUTINE PRINT\_ERROR |
33 |
C | o Write out error message using "standard" format. |
C | o Write out error message using "standard" format. |
34 |
C *============================================================* |
C *============================================================* |
35 |
C | Notes |
C | Notes |
36 |
C | ===== |
C | ===== |
37 |
C | o Some system I/O is not "thread-safe". For this reason |
C | o Some system I/O is not "thread-safe". For this reason |
38 |
C | without the FMTFTN_IO_THREAD_SAFE directive set a |
C | without the FMTFTN\_IO\_THREAD\_SAFE directive set a |
39 |
C | critical region is defined around the write here. In some |
C | critical region is defined around the write here. In some |
40 |
C | cases BEGIN_CRIT() is approximated by only doing writes |
C | cases BEGIN\_CRIT() is approximated by only doing writes |
41 |
C | for thread number 1 - writes for other threads are |
C | for thread number 1 - writes for other threads are |
42 |
C | ignored! |
C | ignored! |
43 |
C | o In a non-parallel form these routines are still used |
C | o In a non-parallel form these routines are still used |
142 |
IMPLICIT NONE |
IMPLICIT NONE |
143 |
C !DESCRIPTION: |
C !DESCRIPTION: |
144 |
C *==========================================================* |
C *==========================================================* |
145 |
C | o SUBROUTINE PRINT_LIST_I |
C | o SUBROUTINE PRINT\_LIST\_I |
146 |
C *==========================================================* |
C *==========================================================* |
147 |
C | Routine for producing list of values for a field with |
C | Routine for producing list of values for a field with |
148 |
C | duplicate values collected into |
C | duplicate values collected into |
149 |
C | n @ value |
C | n \@ value |
150 |
C | record. |
C | record. |
151 |
C *==========================================================* |
C *==========================================================* |
152 |
|
|
263 |
IMPLICIT NONE |
IMPLICIT NONE |
264 |
C !DESCRIPTION: |
C !DESCRIPTION: |
265 |
C *==========================================================* |
C *==========================================================* |
266 |
C | o SUBROUTINE PRINT_LIST_L |
C | o SUBROUTINE PRINT\_LIST\_L |
267 |
C *==========================================================* |
C *==========================================================* |
268 |
C | Routine for producing list of values for a field with |
C | Routine for producing list of values for a field with |
269 |
C | duplicate values collected into |
C | duplicate values collected into |
270 |
C | n @ value |
C | n \@ value |
271 |
C | record. |
C | record. |
272 |
C *==========================================================* |
C *==========================================================* |
273 |
|
|
383 |
IMPLICIT NONE |
IMPLICIT NONE |
384 |
C !DESCRIPTION: |
C !DESCRIPTION: |
385 |
C *==========================================================* |
C *==========================================================* |
386 |
C | o SUBROUTINE PRINT_LIST_R8 |
C | o SUBROUTINE PRINT\_LIST\_R8 |
387 |
C *==========================================================* |
C *==========================================================* |
388 |
C | Routine for producing list of values for a field with |
C | Routine for producing list of values for a field with |
389 |
C | duplicate values collected into |
C | duplicate values collected into |
390 |
C | n @ value |
C | n \@ value |
391 |
C | record. |
C | record. |
392 |
C *==========================================================* |
C *==========================================================* |
393 |
|
|
510 |
IMPLICIT NONE |
IMPLICIT NONE |
511 |
C !DESCRIPTION: |
C !DESCRIPTION: |
512 |
C *==========================================================* |
C *==========================================================* |
513 |
C | SUBROUTINE PRINT_MAPR4 |
C | SUBROUTINE PRINT\_MAPR4 |
514 |
C | o Does textual mapping printing of a field. |
C | o Does textual mapping printing of a field. |
515 |
C *==========================================================* |
C *==========================================================* |
516 |
C | This routine does the actual formatting of the data |
C | This routine does the actual formatting of the data |
517 |
C | and printing to a file. It assumes an array using the |
C | and printing to a file. It assumes an array using the |
518 |
C | MITgcm UV indexing scheme and base index variables. |
C | MITgcm UV indexing scheme and base index variables. |
519 |
C | User code should call an interface routine like |
C | User code should call an interface routine like |
520 |
C | PLOT_FIELD_XYR4( ... ) rather than this code directly. |
C | PLOT\_FIELD\_XYR4( ... ) rather than this code directly. |
521 |
C | Text plots can be oriented XY, YZ, XZ. An orientation |
C | Text plots can be oriented XY, YZ, XZ. An orientation |
522 |
C | is specficied through the "plotMode" argument. All the |
C | is specficied through the "plotMode" argument. All the |
523 |
C | plots made by a single call to this routine will use the |
C | plots made by a single call to this routine will use the |
524 |
C | same contour interval. The plot range (iMin,...,byStr) |
C | same contour interval. The plot range (iMin,...,byStr) |
525 |
C | can be three-dimensional. A separate plot is made for |
C | can be three-dimensional. A separate plot is made for |
526 |
C | each point in the plot range normal to the orientation. |
C | each point in the plot range normal to the orientation. |
527 |
C | e.g. if the orientation is XY (plotMode = PRINT_MAP_XY). |
C | e.g. if the orientation is XY (plotMode = PRINT\_MAP\_XY). |
528 |
C | kMin =1, kMax = 5 and kStr = 2 will produce three XY |
C | kMin =1, kMax = 5 and kStr = 2 will produce three XY |
529 |
C | plots - one for K=1, one for K=3 and one for K=5. |
C | plots - one for K=1, one for K=3 and one for K=5. |
530 |
C | Each plot would have extents iMin:iMax step iStr |
C | Each plot would have extents iMin:iMax step iStr |
934 |
|
|
935 |
C !DESCRIPTION: |
C !DESCRIPTION: |
936 |
C *==========================================================* |
C *==========================================================* |
937 |
C | SUBROUTINE PRINT_MAPRL |
C | SUBROUTINE PRINT\_MAPRL |
938 |
C | o Does textual mapping printing of a field. |
C | o Does textual mapping printing of a field. |
939 |
C *==========================================================* |
C *==========================================================* |
940 |
C | This routine does the actual formatting of the data |
C | This routine does the actual formatting of the data |
941 |
C | and printing to a file. It assumes an array using the |
C | and printing to a file. It assumes an array using the |
942 |
C | MITgcm UV indexing scheme and base index variables. |
C | MITgcm UV indexing scheme and base index variables. |
943 |
C | User code should call an interface routine like |
C | User code should call an interface routine like |
944 |
C | PLOT_FIELD_XYR8( ... ) rather than this code directly. |
C | PLOT\_FIELD\_XYR8( ... ) rather than this code directly. |
945 |
C | Text plots can be oriented XY, YZ, XZ. An orientation |
C | Text plots can be oriented XY, YZ, XZ. An orientation |
946 |
C | is specficied through the "plotMode" argument. All the |
C | is specficied through the "plotMode" argument. All the |
947 |
C | plots made by a single call to this routine will use the |
C | plots made by a single call to this routine will use the |
948 |
C | same contour interval. The plot range (iMin,...,byStr) |
C | same contour interval. The plot range (iMin,...,byStr) |
949 |
C | can be three-dimensional. A separate plot is made for |
C | can be three-dimensional. A separate plot is made for |
950 |
C | each point in the plot range normal to the orientation. |
C | each point in the plot range normal to the orientation. |
951 |
C | e.g. if the orientation is XY (plotMode = PRINT_MAP_XY). |
C | e.g. if the orientation is XY (plotMode = PRINT\_MAP\_XY). |
952 |
C | kMin =1, kMax = 5 and kStr = 2 will produce three XY |
C | kMin =1, kMax = 5 and kStr = 2 will produce three XY |
953 |
C | plots - one for K=1, one for K=3 and one for K=5. |
C | plots - one for K=1, one for K=3 and one for K=5. |
954 |
C | Each plot would have extents iMin:iMax step iStr |
C | Each plot would have extents iMin:iMax step iStr |
1349 |
IMPLICIT NONE |
IMPLICIT NONE |
1350 |
C !DESCRIPTION: |
C !DESCRIPTION: |
1351 |
C *============================================================* |
C *============================================================* |
1352 |
C | SUBROUTINE PRINT_MESSAGE |
C | SUBROUTINE PRINT\_MESSAGE |
1353 |
C | o Write out informational message using "standard" format. |
C | o Write out informational message using "standard" format. |
1354 |
C *============================================================* |
C *============================================================* |
1355 |
C | Notes |
C | Notes |
1356 |
C | ===== |
C | ===== |
1357 |
C | o Some system I/O is not "thread-safe". For this reason |
C | o Some system I/O is not "thread-safe". For this reason |
1358 |
C | without the FMTFTN_IO_THREAD_SAFE directive set a |
C | without the FMTFTN\_IO\_THREAD\_SAFE directive set a |
1359 |
C | critical region is defined around the write here. In some |
C | critical region is defined around the write here. In some |
1360 |
C | cases BEGIN_CRIT() is approximated by only doing writes |
C | cases BEGIN\_CRIT() is approximated by only doing writes |
1361 |
C | for thread number 1 - writes for other threads are |
C | for thread number 1 - writes for other threads are |
1362 |
C | ignored! |
C | ignored! |
1363 |
C | o In a non-parallel form these routines can still be used. |
C | o In a non-parallel form these routines can still be used. |