Changeset 2733


Ignore:
Timestamp:
2011-04-08T17:55:31+02:00 (10 years ago)
Author:
rblod
Message:

Agrif can now work with observation operator

Location:
trunk/NEMOGCM/NEMO/OPA_SRC/OBS
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r2715 r2733  
    195195      INTEGER :: jset 
    196196      LOGICAL :: lmask(MaxNumFiles), ll_u3d, ll_v3d 
    197  
    198       !----------------------------------------------------------------------- 
    199       ! Force exit if AGRIF activated 
    200       !----------------------------------------------------------------------- 
    201      
    202       IF( lk_agrif ) THEN 
    203         CALL ctl_stop( 'dia_obs_init : key_diaobs and key_agrif cannot be used together' ) 
    204       ENDIF 
    205197 
    206198      !----------------------------------------------------------------------- 
  • trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90

    r2358 r2733  
    2929   INTEGER :: nprofvars                    ! Total number of variables for profiles 
    3030   INTEGER :: nprofextr                    ! Extra fields for each variable 
    31 !$AGRIF_DO_NOT_TREAT 
    3231   TYPE(obs_prof), POINTER ::  profdata(:) ! Initial profile data 
    3332   TYPE(obs_prof), POINTER ::  prodatqc(:) ! Profile data after quality control 
    34 !$AGRIF_END_DO_NOT_TREAT 
    3533 
    3634   INTEGER :: nvelosets                     ! Total number of velocity profile data sets 
    3735   INTEGER :: nvelovars                     ! Total number of variables for profiles 
    3836   INTEGER :: nveloextr                     ! Extra fields for each variable 
    39 !$AGRIF_DO_NOT_TREAT 
    4037   TYPE(obs_prof), POINTER ::  velodata(:)  ! Initial velocity profile data 
    4138   TYPE(obs_prof), POINTER ::  veldatqc(:)  ! Velocity profile data after quality control 
    42 !$AGRIF_END_DO_NOT_TREAT 
    4339END MODULE obs_profiles 
  • trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_seaice.F90

    r2358 r2733  
    2929                                                     ! variables 
    3030   INTEGER :: nseaicesets                               ! Number of seaicedata sets 
    31 !$AGRIF_DO_NOT_TREAT 
    3231   TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedata  ! Initial sea ice data 
    3332   TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedatqc ! Sea ice data after quality control 
    34 !$AGRIF_END_DO_NOT_TREAT 
    3533 
    3634END MODULE obs_seaice 
  • trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sla.F90

    r2358 r2733  
    2828                                                     ! variables 
    2929   INTEGER :: nslasets                               ! Number of sladata sets                                                
    30 !$AGRIF_DO_NOT_TREAT 
    3130   TYPE(obs_surf), POINTER, DIMENSION(:) :: sladata  ! Initial SLA data 
    3231   TYPE(obs_surf), POINTER, DIMENSION(:) :: sladatqc ! SLA data after quality control 
    33 !$AGRIF_END_DO_NOT_TREAT 
    3432 
    3533END MODULE obs_sla 
  • trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sst.F90

    r2358 r2733  
    2929                                                     ! variables 
    3030   INTEGER :: nsstsets                               ! Number of sstdata sets 
    31 !$AGRIF_DO_NOT_TREAT 
    3231   TYPE(obs_surf), POINTER, DIMENSION(:) :: sstdata  ! Initial SST data 
    3332   TYPE(obs_surf), POINTER, DIMENSION(:) :: sstdatqc ! SST data after quality control 
    34 !$AGRIF_END_DO_NOT_TREAT 
    3533 
    3634END MODULE obs_sst 
Note: See TracChangeset for help on using the changeset viewer.