Changeset 2358 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90

Timestamp:

2010-11-04T19:14:01+01:00 (13 years ago)

Author:

rblod

Message:

Changes to be able to compile v3_3_beta with key_agrif,see ticket #753 ; just compilation fixes, I was to scared to try to run AGRIF

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90

@@ -29 +29 @@
    INTEGER :: nprofvars                    ! Total number of variables for profiles
    INTEGER :: nprofextr                    ! Extra fields for each variable
+!$AGRIF_DO_NOT_TREAT
    TYPE(obs_prof), POINTER ::  profdata(:) ! Initial profile data
    TYPE(obs_prof), POINTER ::  prodatqc(:) ! Profile data after quality control
+!$AGRIF_END_DO_NOT_TREAT
 
    INTEGER :: nvelosets                     ! Total number of velocity profile data sets
    INTEGER :: nvelovars                     ! Total number of variables for profiles
    INTEGER :: nveloextr                     ! Extra fields for each variable
+!$AGRIF_DO_NOT_TREAT
    TYPE(obs_prof), POINTER ::  velodata(:)  ! Initial velocity profile data
    TYPE(obs_prof), POINTER ::  veldatqc(:)  ! Velocity profile data after quality control
+!$AGRIF_END_DO_NOT_TREAT
 END MODULE obs_profiles