OASIS_3.0_Coupler/pkg/oasis_put.F

C $Header: /u/gcmpack/MITgcm/pkg/oasis/oasis_put.F,v 1.0 2005/07/18 23:05:09 Gianmaria Sannino Exp
C $Name:  $
cgm(
#include "CPP_EEOPTIONS.h"
cgm)
#include "OASIS_OPTIONS.h"
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C     !ROUTINE: OASIS_PUT

        SUBROUTINE OASIS_PUT ( myTime, myIter, myThid )


C     !DESCRIPTION:
C     Declare fields received and sent to OASIS

C     !USES:
      USE mod_kinds_model
      USE mod_prism_proto
      USE mod_prism_def_partition_proto
      USE mod_prism_put_proto
      USE mod_prism_get_proto
c      USE mod_prism_grids_writing
      IMPLICIT NONE

#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "PARAMS.h"
#include "GRID.h"
cgmoasis(
#include "OASIS.h"
#include "OASIS_PARAMS.h"
cgmoasis)
C     !INPUT PARAMETERS:
      INTEGER myThid
      INTEGER myIter
      _RL     myTime

CEOP

C     !LOCAL VARIABLES:
        REAL(kind=ip_realwp_p),DIMENSION(sNx,sNy) :: VARxOASIS
       INTEGER itapsec


#ifdef ALLOW_OASIS

        VARxOASIS(1:sNx,1:sNy) = maskC(1:sNx,1:sNy,1,1,1)   !!float(mpiMyId)
        itapsec = INT(myTime) - deltaTClock  !!!** ATTENZIONE delicato x accoppiamento **
 
c       CALL PRISM_PUT_PROTO(il_var_id_out(2),itapsec,VARxOASIS,ierror)

 1002 FORMAT(/,'Pb in writing ',A8,/,'Time is ',I8,/,' Error code is ',I2)
#endif /* ALLOW_OASIS */

      return
      end
1	sannino	1.1	C $Header: /u/gcmpack/MITgcm/pkg/oasis/oasis_put.F,v 1.0 2005/07/18 23:05:09 Gianmaria Sannino Exp
2			C $Name: $
3			cgm(
4			#include "CPP_EEOPTIONS.h"
5			cgm)
6			#include "OASIS_OPTIONS.h"
7			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
8			CBOP 0
9			C !ROUTINE: OASIS_PUT
10
11			SUBROUTINE OASIS_PUT ( myTime, myIter, myThid )
12
13
14
15
16			C !DESCRIPTION:
17			C Declare fields received and sent to OASIS
18
19			C !USES:
20			USE mod_kinds_model
21			USE mod_prism_proto
22			USE mod_prism_def_partition_proto
23			USE mod_prism_put_proto
24			USE mod_prism_get_proto
25			c USE mod_prism_grids_writing
26			IMPLICIT NONE
27
28			#include "SIZE.h"
29			#include "EEPARAMS.h"
30			#include "EESUPPORT.h"
31			#include "PARAMS.h"
32			#include "GRID.h"
33			cgmoasis(
34			#include "OASIS.h"
35			#include "OASIS_PARAMS.h"
36			cgmoasis)
37			C !INPUT PARAMETERS:
38			INTEGER myThid
39			INTEGER myIter
40			_RL myTime
41
42			CEOP
43
44			C !LOCAL VARIABLES:
45			REAL(kind=ip_realwp_p),DIMENSION(sNx,sNy) :: VARxOASIS
46			INTEGER itapsec
47
48
49			#ifdef ALLOW_OASIS
50
51			VARxOASIS(1:sNx,1:sNy) = maskC(1:sNx,1:sNy,1,1,1) !!float(mpiMyId)
52			itapsec = INT(myTime) - deltaTClock !!! ATTENZIONE delicato x accoppiamento
53
54			c CALL PRISM_PUT_PROTO(il_var_id_out(2),itapsec,VARxOASIS,ierror)
55
56			1002 FORMAT(/,'Pb in writing ',A8,/,'Time is ',I8,/,' Error code is ',I2)
57			#endif /* ALLOW_OASIS */
58
59			return
60			end