Ignore:
Timestamp:
2018-02-05T14:52:16+01:00 (2 years ago)
Author:
dford
Message:

Change variable name in accordance with NEMO conventions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r9289 r9305  
    222222      REAL(dp) :: rn_dobsend     ! Obs window end date   YYYYMMDD.HHMMSS 
    223223 
    224       REAL(wp) :: rtype_avglamscl ! Local version of rn_*_avglamscl 
    225       REAL(wp) :: rtype_avgphiscl ! Local version of rn_*_avgphiscl 
     224      REAL(wp) :: ztype_avglamscl ! Local version of rn_*_avglamscl 
     225      REAL(wp) :: ztype_avgphiscl ! Local version of rn_*_avgphiscl 
    226226 
    227227      CHARACTER(len=128), DIMENSION(:,:), ALLOCATABLE :: & 
     
    621621                  n2dint_type  = nn_2dint_sla 
    622622               ENDIF 
    623                rtype_avglamscl = rn_sla_avglamscl 
    624                rtype_avgphiscl = rn_sla_avgphiscl 
     623               ztype_avglamscl = rn_sla_avglamscl 
     624               ztype_avgphiscl = rn_sla_avgphiscl 
    625625               ltype_fp_indegs = ln_sla_fp_indegs 
    626626               ltype_night     = .FALSE. 
     
    631631                  n2dint_type  = nn_2dint_sst 
    632632               ENDIF 
    633                rtype_avglamscl = rn_sst_avglamscl 
    634                rtype_avgphiscl = rn_sst_avgphiscl 
     633               ztype_avglamscl = rn_sst_avglamscl 
     634               ztype_avgphiscl = rn_sst_avgphiscl 
    635635               ltype_fp_indegs = ln_sst_fp_indegs 
    636636               ltype_night     = ln_sstnight 
     
    641641                  n2dint_type  = nn_2dint_sic 
    642642               ENDIF 
    643                rtype_avglamscl = rn_sic_avglamscl 
    644                rtype_avgphiscl = rn_sic_avgphiscl 
     643               ztype_avglamscl = rn_sic_avglamscl 
     644               ztype_avgphiscl = rn_sic_avgphiscl 
    645645               ltype_fp_indegs = ln_sic_fp_indegs 
    646646               ltype_night     = .FALSE. 
     
    651651                  n2dint_type  = nn_2dint_sss 
    652652               ENDIF 
    653                rtype_avglamscl = rn_sss_avglamscl 
    654                rtype_avgphiscl = rn_sss_avgphiscl 
     653               ztype_avglamscl = rn_sss_avglamscl 
     654               ztype_avgphiscl = rn_sss_avgphiscl 
    655655               ltype_fp_indegs = ln_sss_fp_indegs 
    656656               ltype_night     = .FALSE. 
    657657            ELSE 
    658658               n2dint_type     = nn_2dint_default 
    659                rtype_avglamscl = rn_default_avglamscl 
    660                rtype_avgphiscl = rn_default_avgphiscl 
     659               ztype_avglamscl = rn_default_avglamscl 
     660               ztype_avgphiscl = rn_default_avgphiscl 
    661661               ltype_fp_indegs = ln_default_fp_indegs 
    662662               ltype_night     = .FALSE. 
     
    665665            CALL obs_setinterpopts( nsurftypes, jtype, TRIM(cobstypessurf(jtype)), & 
    666666               &                    nn_2dint_default, n2dint_type,                 & 
    667                &                    rtype_avglamscl, rtype_avgphiscl,              & 
     667               &                    ztype_avglamscl, ztype_avgphiscl,              & 
    668668               &                    ltype_fp_indegs, ltype_night,                  & 
    669669               &                    n2dintsurf, ravglamscl, ravgphiscl,            & 
Note: See TracChangeset for help on using the changeset viewer.