Changeset 2733 for trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90
- Timestamp:
- 2011-04-08T17:55:31+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90
r2358 r2733 29 29 INTEGER :: nprofvars ! Total number of variables for profiles 30 30 INTEGER :: nprofextr ! Extra fields for each variable 31 !$AGRIF_DO_NOT_TREAT32 31 TYPE(obs_prof), POINTER :: profdata(:) ! Initial profile data 33 32 TYPE(obs_prof), POINTER :: prodatqc(:) ! Profile data after quality control 34 !$AGRIF_END_DO_NOT_TREAT35 33 36 34 INTEGER :: nvelosets ! Total number of velocity profile data sets 37 35 INTEGER :: nvelovars ! Total number of variables for profiles 38 36 INTEGER :: nveloextr ! Extra fields for each variable 39 !$AGRIF_DO_NOT_TREAT40 37 TYPE(obs_prof), POINTER :: velodata(:) ! Initial velocity profile data 41 38 TYPE(obs_prof), POINTER :: veldatqc(:) ! Velocity profile data after quality control 42 !$AGRIF_END_DO_NOT_TREAT43 39 END MODULE obs_profiles
Note: See TracChangeset
for help on using the changeset viewer.