Changeset 7086


Ignore:
Timestamp:
2016-10-25T15:23:35+02:00 (4 years ago)
Author:
malcolmroberts
Message:

Added input variables needed for file reading

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

    r7085 r7086  
    212212      REAL(wp) ::   zztmp   
    213213      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zsaldta   ! Jan/Dec levitus salinity 
     214      ! reading initial file 
     215      LOGICAL  ::   ln_tsd_init      !: T & S data flag 
     216      LOGICAL  ::   ln_tsd_tradmp    !: internal damping toward input data flag 
     217      CHARACTER(len=100)            ::   cn_dir 
     218      TYPE(FLD_N)                   ::  sn_tem,sn_sal 
     219      INTEGER  ::   ios=0 
     220 
     221      NAMELIST/namtsd/ ln_tsd_init,ln_tsd_tradmp,cn_dir,sn_tem,sn_sal 
     222      ! 
     223 
     224      REWIND( numnam_ref )              ! Namelist namtsd in reference namelist : 
     225      READ  ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 
     226901   IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtsd in reference namelist for dia_ar5', lwp ) 
     227      REWIND( numnam_cfg )              ! Namelist namtsd in configuration namelist : Parameters of the run 
     228      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
     229902   IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtsd in configuration namelist for dia_ar5', lwp ) 
     230      IF(lwm) WRITE ( numond, namtsd ) 
    214231      ! 
    215232      !!---------------------------------------------------------------------- 
     
    217234      IF( nn_timing == 1 )   CALL timing_start('dia_ar5_init') 
    218235      ! 
    219       CALL wrk_alloc( jpi, jpj, jpk, 2, zsaldta ) 
     236      CALL wrk_alloc( jpi, jpj, jpk, jpts, zsaldta ) 
    220237      !                                      ! allocate dia_ar5 arrays 
    221238      IF( dia_ar5_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'dia_ar5_init : unable to allocate arrays' ) 
     
    252269      ENDIF 
    253270      ! 
    254       CALL wrk_dealloc( jpi, jpj, jpk, 2, zsaldta ) 
     271      CALL wrk_dealloc( jpi, jpj, jpk, jpts, zsaldta ) 
    255272      ! 
    256273      IF( nn_timing == 1 )   CALL timing_stop('dia_ar5_init') 
Note: See TracChangeset for help on using the changeset viewer.