OASIS_3.0_Coupler/pkg/oasis_restart.F

C $Header: /u/gcmpack/MITgcm/pkg/oasis/oasis_restart.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_RESTART ( 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:
c       REAL(kind=ip_realwp_p),DIMENSION(sNx,sNy) :: VARxOASIS
       INTEGER itapsec


#ifdef ALLOW_OASIS

        itapsec = INT(myTime) - deltaTClock  !!!** ATTENZIONE delicato x accoppiamento **
 

        CALL PRISM_PUT_RESTART_PROTO(il_var_id_out(1),itapsec,ierror)
        IF (ierror .NE. PRISM_Ok ) THEN
                STOP 'ERROR IN OASIS_RESTART'
        ENDIF

#endif /* ALLOW_OASIS */

      return
      end
1	sannino	1.1	C $Header: /u/gcmpack/MITgcm/pkg/oasis/oasis_restart.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_RESTART ( 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			c REAL(kind=ip_realwp_p),DIMENSION(sNx,sNy) :: VARxOASIS
46			INTEGER itapsec
47
48
49			#ifdef ALLOW_OASIS
50
51			itapsec = INT(myTime) - deltaTClock !!! ATTENZIONE delicato x accoppiamento
52
53
54
55			CALL PRISM_PUT_RESTART_PROTO(il_var_id_out(1),itapsec,ierror)
56			IF (ierror .NE. PRISM_Ok ) THEN
57			STOP 'ERROR IN OASIS_RESTART'
58			ENDIF
59
60			#endif /* ALLOW_OASIS */
61
62			return
63			end