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.
dtasss.F90 in trunk/NEMO/OPA_SRC/DTA – NEMO

source: trunk/NEMO/OPA_SRC/DTA/dtasss.F90 @ 699

Last change on this file since 699 was 699, checked in by smasson, 17 years ago

insert revision Id
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 4.5 KB
Line 
1MODULE dtasss
2   !!======================================================================
3   !!                       ***  MODULE  dtasss  ***
4   !! Data : Sea Surface Salinity (SSS)
5   !!======================================================================
6   
7   !!----------------------------------------------------------------------
8   !!   dta_sss      : sss data
9   !!----------------------------------------------------------------------
10   !! * Modules used
11   USE oce             ! ocean dynamics and tracers
12   USE dom_oce         ! ocean space and time domain
13   USE in_out_manager  ! I/O manager
14   USE ocfzpt          ! ???
15   USE daymod          ! calendar
16
17   IMPLICIT NONE
18   PRIVATE
19
20   !! * Shared routine
21   PUBLIC dta_sss
22
23   !! * Shared module variables
24#if defined key_dtasss
25   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasss = .TRUE.   !: sss data flag
26#else
27   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasss = .FALSE.  !: sss data flag
28#endif
29   INTEGER ::   numsss         !: logical unit for surface salinity data
30   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !:
31      sss             !: surface salinity
32
33   !!----------------------------------------------------------------------
34   !!   OPA 9.0 , IPSL-LODYC  (2005)
35   !! $Id$
36   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
37   !!----------------------------------------------------------------------
38
39CONTAINS
40
41#if defined key_dtasss
42   !!----------------------------------------------------------------------
43   !!   'key_dtasss'                                               SSS data
44   !!----------------------------------------------------------------------
45
46   SUBROUTINE dta_sss( kt )
47      !!---------------------------------------------------------------------
48      !!                  ***  ROUTINE dta_sss  ***
49      !!                   
50      !! ** Purpose :   Read surface salinity data
51      !!
52      !! ** Method  : - Read a specific sss.
53      !!
54      !! ** Action  : - sss
55      !!
56      !! History :
57      !!        !  90-03  (O. Marti and Ph Dandin)  Original code
58      !!        !  92-07  (M. Imbard)
59      !!        !  96-11  (E. Guilyardi)  Daily AGCM input files
60      !!        !  00-04  (M. Imbard)  NetCDF FORMAT
61      !!        !  00-10  (J.-P. Boulanger)  passage ORCA a TDH
62      !!        !  01-10  (A. Lazar)  Reynolds default
63      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
64      !!        !  02-11  (C. Levy)  MPP/MPI NetCDF read
65      !!        !  05-03  (M. Levy) adapt SST to SSS
66      !!----------------------------------------------------------------------
67      !! * Modules used
68      USE iom
69     
70      !! * Arguments
71      INTEGER ::   kt
72
73      !!----------------------------------------------------------------------
74
75      IF( kt == nit000 ) THEN
76
77         IF(lwp) WRITE(numout,*)
78         IF(lwp) WRITE(numout,*) 'dta_sss : yearly mean sea surface salinity data'
79
80         CALL iom_open ( 'sss.nc', numsss ) 
81         CALL iom_get ( numsss, jpdom_data, 'sss', sss, 1 )
82         CALL iom_close ( numsss )
83
84         sss(:,:) = sss(:,:)*tmask(:,:,1)
85
86         IF( lwp ) THEN
87            WRITE(numout,*) ' '
88            WRITE(numout,*) ' read  sea surface salinity ok'
89            WRITE(numout,*) ' '
90            CALL prihre(sss(:,:),jpi,jpj,1,jpi,20,1,jpj,10,1.,numout)
91         ENDIF
92
93      ENDIF
94
95   END SUBROUTINE dta_sss
96
97#else
98   !!----------------------------------------------------------------------
99   !!   Default option :                                        NO SSS data
100   !!----------------------------------------------------------------------
101
102   SUBROUTINE dta_sss( kt )
103      !!---------------------------------------------------------------------
104      !!                  ***  ROUTINE dta_sss  ***
105      !!                   
106      !! ** Purpose :   sea surface salinity data and update it
107      !!     at each time step.   ???
108      !!
109      !! ** Method  : - sss 
110      !!
111      !! History :
112      !!        !  91-03  ()  Original code
113      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
114      !!----------------------------------------------------------------------
115      !! * Arguments
116      INTEGER, INTENT( in ) ::   kt      ! ocean timestep
117      !!---------------------------------------------------------------------
118     
119      IF( kt == nit000 ) THEN
120         IF(lwp) WRITE(numout,*)
121         IF(lwp) WRITE(numout,*) 'dta_sss : No SSS data'
122         IF(lwp) WRITE(numout,*) '~~~~~~~'
123      ENDIF
124
125     
126   END SUBROUTINE dta_sss
127#endif
128
129   !!======================================================================
130END MODULE dtasss
Note: See TracBrowser for help on using the repository browser.