- Timestamp:
- 2011-04-08T17:55:31+02:00 (13 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/OBS
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r2715 r2733 195 195 INTEGER :: jset 196 196 LOGICAL :: lmask(MaxNumFiles), ll_u3d, ll_v3d 197 198 !-----------------------------------------------------------------------199 ! Force exit if AGRIF activated200 !-----------------------------------------------------------------------201 202 IF( lk_agrif ) THEN203 CALL ctl_stop( 'dia_obs_init : key_diaobs and key_agrif cannot be used together' )204 ENDIF205 197 206 198 !----------------------------------------------------------------------- -
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 -
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_seaice.F90
r2358 r2733 29 29 ! variables 30 30 INTEGER :: nseaicesets ! Number of seaicedata sets 31 !$AGRIF_DO_NOT_TREAT32 31 TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedata ! Initial sea ice data 33 32 TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedatqc ! Sea ice data after quality control 34 !$AGRIF_END_DO_NOT_TREAT35 33 36 34 END MODULE obs_seaice -
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sla.F90
r2358 r2733 28 28 ! variables 29 29 INTEGER :: nslasets ! Number of sladata sets 30 !$AGRIF_DO_NOT_TREAT31 30 TYPE(obs_surf), POINTER, DIMENSION(:) :: sladata ! Initial SLA data 32 31 TYPE(obs_surf), POINTER, DIMENSION(:) :: sladatqc ! SLA data after quality control 33 !$AGRIF_END_DO_NOT_TREAT34 32 35 33 END MODULE obs_sla -
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sst.F90
r2358 r2733 29 29 ! variables 30 30 INTEGER :: nsstsets ! Number of sstdata sets 31 !$AGRIF_DO_NOT_TREAT32 31 TYPE(obs_surf), POINTER, DIMENSION(:) :: sstdata ! Initial SST data 33 32 TYPE(obs_surf), POINTER, DIMENSION(:) :: sstdatqc ! SST data after quality control 34 !$AGRIF_END_DO_NOT_TREAT35 33 36 34 END MODULE obs_sst
Note: See TracChangeset
for help on using the changeset viewer.