Changeset 974


Ignore:
Timestamp:
2008-05-15T16:07:14+02:00 (13 years ago)
Author:
cetlod
Message:

phasing the OFFLINE module to the new version of NEMO, see ticket 146

Location:
trunk/NEMO/OFF_SRC/DOM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/DOM/domain.F90

    r719 r974  
    1717   USE daymod          ! calendar 
    1818   USE lib_mpp         ! distributed memory computing library 
    19    USE flxrnf          ! runoffs 
    2019 
    2120   USE domstp          ! domain: set the time-step 
     
    111110      NAMELIST/nam_run/ no    , cexper   , ln_rstart , nrstdt , nit000,          & 
    112111         &             nitend, ndate0   , nleapy   , ninist , nstock,           & 
    113          &             nprint, nwrite   , nrunoff  , ln_ctl , nictls, nictle,   & 
     112         &             nprint, nwrite   , ln_ctl , nictls, nictle,   & 
    114113         &             njctls, njctle   , nbench   , isplt  , jsplt 
    115114 
     
    147146         WRITE(numout,*) '           frequency of restart file       nstock    = ', nstock 
    148147         WRITE(numout,*) '           frequency of output file        nwrite    = ', nwrite 
    149          WRITE(numout,*) '           runoff option                   nrunoff   = ', nrunoff 
    150148         WRITE(numout,*) '           run control (for debugging)     ln_ctl    = ', ln_ctl 
    151149         WRITE(numout,*) '           Start i indice for SUM control  nictls    = ', nictls 
  • trunk/NEMO/OFF_SRC/DOM/domrea.F90

    r719 r974  
    9393      REAL(wp), DIMENSION(jpi,jpj) :: & 
    9494         zprt = 0. 
    95  
    96       REAL(wp), DIMENSION(1,1,jpk) :: & 
    97          zt1d 
    9895#if ! defined key_zco 
    9996      INTEGER :: ik 
     
    150147         CALL iom_get( inum2, jpdom_data, 'fmask', fmask ) 
    151148 
    152 #if defined key_cfg_1d 
     149#if defined key_c1d 
    153150         ! set umask and vmask equal tmask in 1D configuration 
    154151         IF(lwp) WRITE(numout,*) 
     
    191188         ! Vertical coordinates and scales factors 
    192189         ! 
    193          CALL iom_get( inum4, jpdom_unknown, 'gdept_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) ! depth 
    194          gdept_0(:) = zt1d(1,1,:)  
    195          CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
    196          gdepw_0(:) = zt1d(1,1,:)  
    197          CALL iom_get( inum4, jpdom_unknown, 'e3t_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
    198          e3t_0(:) = zt1d(1,1,:)  
    199          CALL iom_get( inum4, jpdom_unknown, 'e3w_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
    200          e3w_0(:) = zt1d(1,1,:)  
     190         CALL iom_get( inum4, jpdom_unknown, 'gdept_0', gdept_0 ) ! depth 
     191         CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', gdepw_0 ) 
     192         CALL iom_get( inum4, jpdom_unknown, 'e3t_0'  , e3t_0   ) 
     193         CALL iom_get( inum4, jpdom_unknown, 'e3w_0'  , e3w_0   ) 
    201194 
    202195#if ! defined key_zco 
     
    219212            CALL iom_get( inum4, jpdom_data, 'hbatf', hbatf ) 
    220213             
    221             CALL iom_get( inum4, jpdom_unknown, 'gsigt', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) ! scaling coef. 
    222             gsigt(:) = zt1d(1,1,:)  
    223             CALL iom_get( inum4, jpdom_unknown, 'gsigw', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
    224             gsigw(:) = zt1d(1,1,:)  
    225             CALL iom_get( inum4, jpdom_unknown, 'gsi3w', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )  
    226             gsi3w(:) = zt1d(1,1,:)  
    227             CALL iom_get( inum4, jpdom_unknown, 'esigt', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
    228             esigt(:) = zt1d(1,1,:)  
    229             CALL iom_get( inum4, jpdom_unknown, 'esigw', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
    230             esigw(:) = zt1d(1,1,:)  
     214            CALL iom_get( inum4, jpdom_unknown, 'gsigt', gsigt ) ! scaling coef. 
     215            CALL iom_get( inum4, jpdom_unknown, 'gsigw', gsigw ) 
     216            CALL iom_get( inum4, jpdom_unknown, 'gsi3w', gsi3w )  
     217            CALL iom_get( inum4, jpdom_unknown, 'esigt', esigt ) 
     218            CALL iom_get( inum4, jpdom_unknown, 'esigw', esigw ) 
    231219 
    232220         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.