Changeset 7078


Ignore:
Timestamp:
2016-10-24T18:28:34+02:00 (4 years ago)
Author:
emanuelaclementi
Message:

#1643 Updates on development branch 2015/dev_r5936_INGV1_WAVE

Location:
branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/CONFIG/SHARED/namelist_ref

    r6253 r7078  
    12461246   sn_wmp      =  'sdw_wave' ,        1          , 'wmp'        ,     .true.   , .false. , 'daily'   ,  ''      , ''       , '' 
    12471247   sn_wnum     =  'sdw_wave' ,        1          , 'wave_num'   ,     .true.   , .false. , 'daily'   ,  ''      , ''       , '' 
    1248    sn_tauoc    -  'sdw_wave' ,        1          , 'wave_stress',     .true.   , .false. , 'daily'   ,  ''      , ''       , '' 
     1248   sn_tauoc    =  'sdw_wave' ,        1          , 'wave_stress',     .true.   , .false. , 'daily'   ,  ''      , ''       , '' 
    12491249! 
    12501250   cn_dir  = './'  !  root directory for the location of drag coefficient files 
  • branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r6253 r7078  
    4444   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)       :: tsd2d 
    4545   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)       :: usd2d, vsd2d 
    46    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     :: usd3d, vsd3d, wsd3d  
     46   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)     :: usd3d, vsd3d, wsd3d  
    4747   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)       :: zusd2dt, zvsd2dt 
    4848 
     
    118118            ! 
    119119                                   ALLOCATE( sf_tauoc(1)%fnow(jpi,jpj,1)   ) 
    120             IF( sn_cdg%ln_tint )   ALLOCATE( sf_tauoc(1)%fdta(jpi,jpj,1,2) ) 
     120            IF( sn_tauoc%ln_tint )   ALLOCATE( sf_tauoc(1)%fdta(jpi,jpj,1,2) ) 
    121121            CALL fld_fill( sf_tauoc, (/ sn_tauoc /), cn_dir, 'sbc_wave', 'Wave module', 'namsbc_wave' ) 
    122122            ALLOCATE( tauoc_wave(jpi,jpj) ) 
     
    139139            ALLOCATE( usd3d(jpi,jpj,jpk),vsd3d(jpi,jpj,jpk),wsd3d(jpi,jpj,jpk) ) 
    140140            ALLOCATE( swh(jpi,jpj), wmp(jpi,jpj) ) 
     141            ALLOCATE( zusd2dt(jpi,jpj), zvsd2dt(jpi,jpj) ) 
    141142            usd3d(:,:,:) = 0._wp   ;   usd2d(:,:) = 0._wp   ;    
    142143            vsd3d(:,:,:) = 0._wp   ;   vsd2d(:,:) = 0._wp   ;  
Note: See TracChangeset for help on using the changeset viewer.