Changeset 2287 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS
- Timestamp:
- 2010-10-18T09:53:52+02:00 (14 years ago)
- Location:
- branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS
- Files:
-
- 54 edited
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/ddatetoymdhms.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE ddatetoymdhms( ddate, kyea, kmon, kday, khou, kmin, ksec ) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r2281 r2287 104 104 LOGICAL, DIMENSION(:), ALLOCATABLE :: & 105 105 & ld_velav !: Velocity data is daily averaged 106 107 !!---------------------------------------------------------------------- 108 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 109 !! $Id$ 110 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 111 !!---------------------------------------------------------------------- 106 112 107 113 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/find_obs_proc.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE find_obs_proc(kldi,klei,kldj,klej,kmyproc,kobsp,kobsi,kobsj,kno) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/grt_cir_dis.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 REAL(KIND=wp) FUNCTION grt_cir_dis( pa1, pa2, pb1, pb2, pc1, pc2 ) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/grt_cir_dis_saa.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 REAL(KIND=wp) FUNCTION grt_cir_dis_saa( pa, pb, pc ) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/linquad.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 LOGICAL FUNCTION linquad( px, py, pxv, pyv ) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/maxdist.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 REAL FUNCTION maxdist( pxv, pyv ) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90
r2281 r2287 42 42 INTEGER, DIMENSION(:,:), ALLOCATABLE :: & 43 43 & mppmap 44 45 !!---------------------------------------------------------------------- 46 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 47 !! $Id$ 48 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 49 !!---------------------------------------------------------------------- 44 50 45 51 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_const.F90
r2281 r2287 4 4 !! Observation diagnostics: Constants used by many modules 5 5 !!===================================================================== 6 !!---------------------------------------------------------------------- 7 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 8 !! $Id$ 9 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 10 !!---------------------------------------------------------------------- 11 6 12 !! * Modules used 7 13 USE par_kind, ONLY : & ! Precision variables -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_conv.F90
r2281 r2287 34 34 & dep_to_p 35 35 36 !!---------------------------------------------------------------------- 37 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 38 !! $Id$ 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 40 !!---------------------------------------------------------------------- 41 36 42 CONTAINS 37 43 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_conv_functions.h90
r2281 r2287 1 REAL(KIND=wp) FUNCTION potemp( ps, pt, pp, ppr ) 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 7 REAL(KIND=wp) FUNCTION potemp( ps, pt, pp, ppr ) 2 8 !!---------------------------------------------------------------------- 3 9 !! *** FUNCTION potemp *** -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fbm.F90
r2281 r2287 126 126 127 127 PRIVATE putvaratt_obfbdata 128 129 !!---------------------------------------------------------------------- 130 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 131 !! $Id$ 132 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 133 !!---------------------------------------------------------------------- 128 134 129 135 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90
r2281 r2287 82 82 CHARACTER(LEN=44), PUBLIC :: & 83 83 & grid_search_file ! file name head for grid search lookup 84 85 !!---------------------------------------------------------------------- 86 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 87 !! $Id$ 88 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 89 !!---------------------------------------------------------------------- 84 90 85 91 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid_search_bruteforce.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE obs_grid_search_bruteforce( kpi, kpj, kpiglo, kpjglo, & 2 8 & kldi, klei, kldj, klej, & -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_h2d.F90
r2281 r2287 44 44 & obs_int_h2d_init ! Set up weights and vertical mask 45 45 46 !!---------------------------------------------------------------------- 47 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 48 !! $Id$ 49 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 50 !!---------------------------------------------------------------------- 51 46 52 CONTAINS 47 53 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90
r2281 r2287 26 26 & obs_int_comm_2d ! Get 2D interpolation stencil 27 27 28 !!---------------------------------------------------------------------- 29 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 30 !! $Id$ 31 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 32 !!---------------------------------------------------------------------- 33 28 34 CONTAINS 29 35 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_z1d.F90
r2281 r2287 24 24 ! interpolating function used with a cubic spline 25 25 26 !!---------------------------------------------------------------------- 27 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 28 !! $Id$ 29 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 30 !!---------------------------------------------------------------------- 31 26 32 CONTAINS 27 33 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_level_search.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE obs_level_search( kgrd, pgrddep, kobs, pobsdep, kobsk ) 2 8 !!---------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90
r2281 r2287 46 46 & mpp_alltoallv_real, & 47 47 & mpp_global_max 48 49 !!---------------------------------------------------------------------- 50 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 51 !! $Id$ 52 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 53 !!---------------------------------------------------------------------- 48 54 49 55 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90
r2281 r2287 52 52 53 53 INTEGER, PARAMETER, PUBLIC :: imaxavtypes = 20 ! Max number of daily avgd obs types 54 55 !!---------------------------------------------------------------------- 56 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 57 !! $Id$ 58 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 59 !!---------------------------------------------------------------------- 54 60 55 61 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90
r2281 r2287 40 40 & obs_pre_vel, & ! First level check and screening of velocity profiles 41 41 & calc_month_len ! Calculate the number of days in the months of a year 42 43 !!---------------------------------------------------------------------- 44 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 45 !! $Id$ 46 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 47 !!---------------------------------------------------------------------- 42 48 43 49 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prof_io.F90
r2281 r2287 20 20 INTEGER, PARAMETER :: imaxlev = 10000 21 21 22 !!---------------------------------------------------------------------- 23 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 24 !! $Id$ 25 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 26 !!---------------------------------------------------------------------- 27 22 28 CONTAINS 23 29 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90
r2281 r2287 5 5 !! arrays and additional flags etc. 6 6 !!===================================================================== 7 !!---------------------------------------------------------------------- 8 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 9 !! $Id$ 10 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 11 !!---------------------------------------------------------------------- 12 7 13 8 14 !! * Modules used -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles_def.F90
r2281 r2287 183 183 184 184 END TYPE obs_prof 185 186 !!---------------------------------------------------------------------- 187 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 188 !! $Id$ 189 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 190 !!---------------------------------------------------------------------- 185 191 186 192 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90
r2281 r2287 41 41 PUBLIC obs_rea_altbias ! Read the altimeter bias 42 42 43 !!---------------------------------------------------------------------- 44 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 45 !! $Id$ 46 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 47 !!---------------------------------------------------------------------- 48 43 49 CONTAINS 44 50 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90
r2281 r2287 33 33 34 34 PUBLIC obs_rea_pro_dri ! Read the profile observations 35 36 !!---------------------------------------------------------------------- 37 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 38 !! $Id$ 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 40 !!---------------------------------------------------------------------- 35 41 36 42 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_seaice.F90
r2281 r2287 31 31 32 32 PUBLIC obs_rea_seaice ! Read the seaice observations from the point data 33 34 33 34 !!---------------------------------------------------------------------- 35 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 36 !! $Id$ 37 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 38 !!---------------------------------------------------------------------- 39 35 40 CONTAINS 36 41 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_sla.F90
r2281 r2287 31 31 32 32 PUBLIC obs_rea_sla ! Read the SLA observations from the AVISO/SLA database 33 34 !!---------------------------------------------------------------------- 35 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 36 !! $Id$ 37 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 38 !!---------------------------------------------------------------------- 33 39 34 40 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_sst.F90
r2281 r2287 34 34 PUBLIC obs_rea_sst_rey ! Read the gridded Reynolds SST 35 35 36 !!---------------------------------------------------------------------- 37 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 38 !! $Id$ 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 40 !!---------------------------------------------------------------------- 41 36 42 CONTAINS 37 43 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_vel.F90
r2281 r2287 33 33 34 34 PUBLIC obs_rea_vel_dri ! Read the profile observations 35 36 !!---------------------------------------------------------------------- 37 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 38 !! $Id$ 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 40 !!---------------------------------------------------------------------- 35 41 36 42 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90
r2281 r2287 54 54 ! used one 55 55 56 !!---------------------------------------------------------------------- 57 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 58 !! $Id$ 59 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 60 !!---------------------------------------------------------------------- 61 56 62 CONTAINS 57 63 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_rot_vel.F90
r2281 r2287 27 27 28 28 PUBLIC obs_rotvel ! Rotate the observations 29 30 !!---------------------------------------------------------------------- 31 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 32 !! $Id$ 33 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 34 !!---------------------------------------------------------------------- 29 35 30 36 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_seaice.F90
r2281 r2287 5 5 !! arrays and additional flags etc. 6 6 !!===================================================================== 7 !!---------------------------------------------------------------------- 8 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 9 !! $Id$ 10 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 11 !!---------------------------------------------------------------------- 12 7 13 8 14 !! * Modules used -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_seaice_io.F90
r2281 r2287 18 18 IMPLICIT NONE 19 19 20 !!---------------------------------------------------------------------- 21 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 22 !! $Id$ 23 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 24 !!---------------------------------------------------------------------- 25 20 26 CONTAINS 21 27 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sla.F90
r2281 r2287 5 5 !! arrays and additional flags etc. 6 6 !!===================================================================== 7 !!---------------------------------------------------------------------- 8 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 9 !! $Id$ 10 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 11 !!---------------------------------------------------------------------- 7 12 8 13 !! * Modules used -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sla_io.F90
r2281 r2287 18 18 IMPLICIT NONE 19 19 20 !!---------------------------------------------------------------------- 21 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 22 !! $Id$ 23 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 24 !!---------------------------------------------------------------------- 25 20 26 CONTAINS 21 27 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sla_types.F90
r2281 r2287 8 8 !!---------------------------------------------------------------------- 9 9 !!---------------------------------------------------------------------- 10 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 11 !! $Id$ 12 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 10 13 !!---------------------------------------------------------------------- 14 11 15 IMPLICIT NONE 12 16 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sort.F90
r2281 r2287 20 20 PUBLIC sort_dp_indx ! Get indicies for ascending order for a double prec. array 21 21 22 !!---------------------------------------------------------------------- 23 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 24 !! $Id$ 25 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 26 !!---------------------------------------------------------------------- 27 22 28 CONTAINS 23 29 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sst.F90
r2281 r2287 5 5 !! arrays and additional flags etc. 6 6 !!===================================================================== 7 !!---------------------------------------------------------------------- 8 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 9 !! $Id$ 10 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 11 !!---------------------------------------------------------------------- 12 7 13 8 14 !! * Modules used -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sst_io.F90
r2281 r2287 18 18 IMPLICIT NONE 19 19 20 !!---------------------------------------------------------------------- 21 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 22 !! $Id$ 23 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 24 !!---------------------------------------------------------------------- 25 20 26 CONTAINS 21 27 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_surf_def.F90
r2281 r2287 94 94 95 95 END TYPE obs_surf 96 97 !!---------------------------------------------------------------------- 98 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 99 !! $Id$ 100 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 101 !!---------------------------------------------------------------------- 96 102 97 103 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90
r2281 r2287 46 46 PUBLIC obs_wmo_init 47 47 PUBLIC obs_alt_typ_init 48 49 !!---------------------------------------------------------------------- 50 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 51 !! $Id$ 52 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 53 !!---------------------------------------------------------------------- 48 54 49 55 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_utils.F90
r2281 r2287 33 33 & ddatetoymdhms ! Convert YYYYMMDD.hhmmss to components 34 34 35 !!---------------------------------------------------------------------- 36 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 37 !! $Id$ 38 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 39 !!---------------------------------------------------------------------- 40 35 41 CONTAINS 36 42 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_vel_io.F90
r2281 r2287 20 20 INTEGER, PARAMETER :: imaxlev = 10000 21 21 22 !!---------------------------------------------------------------------- 23 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 24 !! $Id$ 25 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 26 !!---------------------------------------------------------------------- 27 22 28 CONTAINS 23 29 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
r2281 r2287 51 51 CHARACTER(len=ilenunit), POINTER, DIMENSION(:,:) :: cdunit 52 52 END TYPE obswriinfo 53 54 !!---------------------------------------------------------------------- 55 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 56 !! $Id$ 57 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 58 !!---------------------------------------------------------------------- 53 59 54 60 CONTAINS -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obsinter_h2d.h90
r2281 r2287 1 1 !!---------------------------------------------------------------------- 2 !! This software is governed by the CeCILL licence (Version 2) 3 !! (See NEMOVAR_CeCILL.txt) 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 4 5 !!---------------------------------------------------------------------- 6 5 7 SUBROUTINE obs_int_h2d_init( kpk, kpk2, k2dint, plam, pphi, & 6 8 & pglam, pgphi, pmask, pweig, pobsmask, & -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obsinter_z1d.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE obs_int_z1d( kpk, kkco, k1dint, kdep, & 2 8 & pobsdep, pobsk, pobs2k, & -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obsprof_io.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 1 6 2 7 SUBROUTINE read_enactfile( cdfilename, inpfile, kunit, ldwp, ldgrid ) -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obsseaice_io.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE read_seaice( cdfilename, inpfile, kunit, ldwp, ldgrid ) 2 8 !!--------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obssla_io.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE read_avisofile( cdfilename, inpfile, kunit, ldwp, ldgrid ) 2 8 !!--------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obssla_types.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 INTEGER, PARAMETER :: imaxmissions=8 2 8 CHARACTER(len=3) :: cmissions(0:imaxmissions) = & -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obssst_io.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE read_ghrsst( cdfilename, inpfile, kunit, ldwp, ldgrid ) 2 8 !!--------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obsvel_io.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE read_taondbc( cdfilename, inpfile, kunit, ldwp, ldgrid ) 2 8 !!--------------------------------------------------------------------- -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/str_c_to_for.h90
r2281 r2287 1 !!---------------------------------------------------------------------- 2 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 3 !! $Id$ 4 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 5 !!---------------------------------------------------------------------- 6 1 7 SUBROUTINE str_c_to_for( cd_str ) 2 8 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.