New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
mod_time_parameters.f90 in branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/mod_time_parameters.f90 @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 13 years ago

set proper svn properties to all files...

  • Property svn:keywords set to Id
File size: 887 bytes
Line 
1MODULE mod_time_parameters
2
3  INTEGER,POINTER  :: initial_timestep
4  REAL,POINTER     :: initial_date
5  REAL,POINTER     :: timestep_value 
6  INTEGER,POINTER  :: timestep_number
7
8CONTAINS
9
10  SUBROUTINE time_parameters__swap_context(saved_initial_timestep,saved_initial_date, &
11                                           saved_timestep_value,saved_timestep_number)
12  IMPLICIT NONE
13    INTEGER,POINTER  :: saved_initial_timestep
14    REAL,POINTER     :: saved_initial_date
15    REAL,POINTER     :: saved_timestep_value 
16    INTEGER,POINTER  :: saved_timestep_number
17   
18    initial_timestep => saved_initial_timestep
19    initial_date     => saved_initial_date
20    timestep_value   => saved_timestep_value 
21    timestep_number  => saved_timestep_number   
22   
23  END SUBROUTINE time_parameters__swap_context 
24   
25                                           
26END MODULE mod_time_parameters
Note: See TracBrowser for help on using the repository browser.