llc_90/code-async-noseaice/asyncio_write_fld_xyz_rl.F

C $Header: /u/gcmpack/MITgcm_contrib/llc_hires/llc_90/code-async/asyncio_write_fld_xyz_rl.F,v 1.1 2017/10/03 00:09:12 dimitri Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"
#include "W2_OPTIONS.h"
#include "RW_OPTIONS.h"

      SUBROUTINE ASYNCIO_WRITE_FLD_XYZ_RL( pref,suff,field,myIter,
     I           myThid )
      IMPLICIT NONE
C Global
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "W2_EXCH2_SIZE.h"
#include "W2_EXCH2_PARAMS.h"
#include "W2_EXCH2_TOPOLOGY.h"
#include "PARAMS.h"
C Arguments
      CHARACTER*(*) pref,suff
      _RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
      INTEGER myIter
      INTEGER myThid
C Functions
      INTEGER ILNBLNK,IFNBLNK
C Local
      INTEGER bi, bj, IFLD, tN

      IFLD = ICHAR(pref)

C      RETURN
C
!      IF ( pref .EQ. 'U.' ) THEN
!         IFLD=1
!      ELSE IF (pref .EQ. 'V.' ) THEN
!         IFLD=2
!      ELSE IF (pref .EQ. 'T.' ) THEN
!         IFLD=3
!      ELSE IF (pref .EQ. 'S.' ) THEN
!         IFLD=4
!      ELSE IF (pref .EQ. 'X.' ) THEN
!         IFLD=5
!      ELSE IF (pref .EQ. 'Y.' ) THEN
!         IFLD=6
!      ELSE IF (pref .EQ. 'N.' ) THEN
!         IFLD=7
!      ELSE IF (pref .EQ. 'D.' ) THEN
!         IFLD=8
!      ELSE IF (pref .EQ. 'H.' ) THEN
!         IFLD=9
!      ELSE
!         STOP 'ABNORMAL END: INVALID FIELD CODE'
!      ENDIF

      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myBxHi(myThid)
ch        tN = tileNo(bi,bj)
        tN = W2_myTileList(bi,bj)
ch        PRINT *, 'WRITING FOR TILE ', TN
        CALL ASYNCIO_BRON_F_F3( IFLD, TN, MYITER, 
     &   field(1-OLx,1-OLy,1,bi,bj)
     &  )
       ENDDO
      ENDDO

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm_contrib/llc_hires/llc_90/code-async/asyncio_write_fld_xyz_rl.F,v 1.1 2017/10/03 00:09:12 dimitri Exp $
2	C $Name: $
3
4	#include "CPP_EEOPTIONS.h"
5	#include "W2_OPTIONS.h"
6	#include "RW_OPTIONS.h"
7
8	SUBROUTINE ASYNCIO_WRITE_FLD_XYZ_RL( pref,suff,field,myIter,
9	I myThid )
10	IMPLICIT NONE
11	C Global
12	#include "SIZE.h"
13	#include "EEPARAMS.h"
14	#include "EESUPPORT.h"
15	#include "W2_EXCH2_SIZE.h"
16	#include "W2_EXCH2_PARAMS.h"
17	#include "W2_EXCH2_TOPOLOGY.h"
18	#include "PARAMS.h"
19	C Arguments
20	CHARACTER() pref,suff
21	_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
22	INTEGER myIter
23	INTEGER myThid
24	C Functions
25	INTEGER ILNBLNK,IFNBLNK
26	C Local
27	INTEGER bi, bj, IFLD, tN
28
29	IFLD = ICHAR(pref)
30
31	C RETURN
32	C
33	! IF ( pref .EQ. 'U.' ) THEN
34	! IFLD=1
35	! ELSE IF (pref .EQ. 'V.' ) THEN
36	! IFLD=2
37	! ELSE IF (pref .EQ. 'T.' ) THEN
38	! IFLD=3
39	! ELSE IF (pref .EQ. 'S.' ) THEN
40	! IFLD=4
41	! ELSE IF (pref .EQ. 'X.' ) THEN
42	! IFLD=5
43	! ELSE IF (pref .EQ. 'Y.' ) THEN
44	! IFLD=6
45	! ELSE IF (pref .EQ. 'N.' ) THEN
46	! IFLD=7
47	! ELSE IF (pref .EQ. 'D.' ) THEN
48	! IFLD=8
49	! ELSE IF (pref .EQ. 'H.' ) THEN
50	! IFLD=9
51	! ELSE
52	! STOP 'ABNORMAL END: INVALID FIELD CODE'
53	! ENDIF
54
55	DO bj=myByLo(myThid),myByHi(myThid)
56	DO bi=myBxLo(myThid),myBxHi(myThid)
57	ch tN = tileNo(bi,bj)
58	tN = W2_myTileList(bi,bj)
59	ch PRINT *, 'WRITING FOR TILE ', TN
60	CALL ASYNCIO_BRON_F_F3( IFLD, TN, MYITER,
61	& field(1-OLx,1-OLy,1,bi,bj)
62	& )
63	ENDDO
64	ENDDO
65
66	RETURN
67	END