New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8661 – NEMO

Changeset 8661


Ignore:
Timestamp:
2017-10-26T12:06:21+02:00 (7 years ago)
Author:
andmirek
Message:

#1962 put back tabs, spaces and lines removed when implementiong XIOS write functionality

Location:
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r8651 r8661  
    349349               ndastp = NINT( zndastp ) 
    350350               CALL iom_get( numror, 'adatrj', adatrj  ) 
    351                CALL iom_get( numror, 'ntime', ktime ) 
    352                nn_time0=INT(ktime) 
     351          CALL iom_get( numror, 'ntime', ktime ) 
     352          nn_time0=INT(ktime) 
    353353               ! calculate start time in hours and minutes 
    354                zdayfrac=adatrj-INT(adatrj) 
    355                ksecs = NINT(zdayfrac*86400)       ! Nearest second to catch rounding errors in adatrj         
    356                ihour = INT(ksecs/3600) 
    357                iminute = ksecs/60-ihour*60 
    358                   
     354          zdayfrac=adatrj-INT(adatrj) 
     355          ksecs = NINT(zdayfrac*86400)        ! Nearest second to catch rounding errors in adatrj          
     356          ihour = INT(ksecs/3600) 
     357          iminute = ksecs/60-ihour*60 
     358            
    359359               ! Add to nn_time0 
    360360               nhour   =   nn_time0 / 100 
    361361               nminute = ( nn_time0 - nhour * 100 ) 
    362                nminute=nminute+iminute 
    363                 
    364                IF( nminute >= 60 ) THEN 
    365                   nminute=nminute-60 
    366                   nhour=nhour+1 
    367                ENDIF 
    368                nhour=nhour+ihour 
    369                IF( nhour >= 24 ) THEN 
    370                   nhour=nhour-24 
    371                   adatrj=adatrj+1 
    372                ENDIF       
    373                nn_time0 = nhour * 100 + nminute 
    374                adatrj = INT(adatrj)                    ! adatrj set to integer as nn_time0 updated         
     362          nminute=nminute+iminute 
     363           
     364          IF( nminute >= 60 ) THEN 
     365             nminute=nminute-60 
     366        nhour=nhour+1 
     367          ENDIF 
     368          nhour=nhour+ihour 
     369          IF( nhour >= 24 ) THEN 
     370        nhour=nhour-24 
     371             adatrj=adatrj+1 
     372          ENDIF           
     373          nn_time0 = nhour * 100 + nminute 
     374          adatrj = INT(adatrj)                    ! adatrj set to integer as nn_time0 updated           
    375375            ELSE 
    376376               ! parameters corresponding to nit000 - 1 (as we start the step loop with a call to day) 
     
    386386            ndastp = ndate0           ! ndate0 read in the namelist in dom_nam 
    387387            nhour   =   nn_time0 / 100 
    388             nminute = ( nn_time0 - nhour * 100 ) 
     388       nminute = ( nn_time0 - nhour * 100 ) 
    389389            IF( nhour*3600+nminute*60-ndt05 .lt. 0 )  ndastp=ndastp-1      ! Start hour is specified in the namelist (default 0) 
    390390            adatrj = ( REAL( nit000-1, wp ) * rdt ) / rday 
     
    396396            WRITE(numout,*) '   date ndastp                                      : ', ndastp 
    397397            WRITE(numout,*) '   number of elapsed days since the begining of run : ', adatrj 
    398             WRITE(numout,*) '   nn_time0                                         : ',nn_time0 
     398       WRITE(numout,*) '   nn_time0                                         : ',nn_time0 
    399399            WRITE(numout,*) 
    400400         ENDIF 
     
    413413         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj, lxios = lwxios            )   ! number of elapsed days since 
    414414         !                                                                     ! the begining of the run [s] 
    415         CALL iom_rstput( kt, nitrst, numrow, 'ntime'  , REAL( nn_time0, wp), lxios = lwxios ) ! time 
     415    CALL iom_rstput( kt, nitrst, numrow, 'ntime'  , REAL( nn_time0, wp), lxios = lwxios ) ! time 
    416416         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    417417      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8651 r8661  
    4949   USE iom_def, ONLY:lwxios, wxioso, rst_wfields ! write restart flag and output type 
    5050   USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core 
     51 
    5152   IMPLICIT NONE 
    5253   PRIVATE 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8651 r8661  
    138138      INTEGER, INTENT(in)  ::   kt   ! ocean time-step index 
    139139      ! 
    140       LOGICAL  ::   ll_fw_start                 ! if true, forward integration  
    141       LOGICAL  ::   ll_init                     ! if true, special startup of 2d equations 
     140      LOGICAL  ::   ll_fw_start        ! if true, forward integration  
     141      LOGICAL  ::   ll_init             ! if true, special startup of 2d equations 
    142142      LOGICAL  ::   ll_tmp1, ll_tmp2            ! local logical variables used in W/D 
    143       INTEGER  ::   ji, jj, jk, jn              ! dummy loop indices 
    144       INTEGER  ::   ikbu, ikbv, noffset         ! local integers 
    145       INTEGER  ::   iktu, iktv                  ! local integers 
     143      INTEGER  ::   ji, jj, jk, jn        ! dummy loop indices 
     144      INTEGER  ::   ikbu, ikbv, noffset      ! local integers 
     145      INTEGER  ::   iktu, iktv               ! local integers 
    146146      REAL(wp) ::   zmdi 
    147       REAL(wp) ::   zraur, z1_2dt_b, z2dt_bf    ! local scalars 
     147      REAL(wp) ::   zraur, z1_2dt_b, z2dt_bf    ! local scalars 
    148148      REAL(wp) ::   zx1, zy1, zx2, zy2          !   -      - 
    149       REAL(wp) ::   z1_12, z1_8, z1_4, z1_2     !   -      - 
     149      REAL(wp) ::   z1_12, z1_8, z1_4, z1_2  !   -      - 
    150150      REAL(wp) ::   zu_spg, zv_spg              !   -      - 
    151       REAL(wp) ::   zhura, zhvra                !   -      - 
    152       REAL(wp) ::   za0, za1, za2, za3          !   -      - 
     151      REAL(wp) ::   zhura, zhvra          !   -      - 
     152      REAL(wp) ::   za0, za1, za2, za3    !   -      - 
    153153      ! 
    154154      REAL(wp), POINTER, DIMENSION(:,:) :: zsshp2_e 
     
    192192      ENDIF 
    193193      ! 
    194       IF( kt == nit000 ) THEN                       !* initialisation 
     194      IF( kt == nit000 ) THEN                !* initialisation 
    195195         ! 
    196196         IF(lwp) WRITE(numout,*) 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r8630 r8661  
    4545   INTEGER       ::   nn_chunksz       !: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
    4646   INTEGER       ::   nn_wxios         !: write resart using xios 0 - no, 1 - single, 2 - multiple file output 
     47 
    4748#if defined key_netcdf4 
    4849   !!---------------------------------------------------------------------- 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8652 r8661  
    182182          CALL iom_set_axis_attr( "depthu", paxis = gdept_1d ) 
    183183          CALL iom_set_axis_attr( "depthv", paxis = gdept_1d ) 
    184           CALL iom_set_axis_attr( "depthw", paxis = gdepw_1d ) 
     184      CALL iom_set_axis_attr( "depthw", gdepw_1d ) 
    185185 
    186186          ! Add vertical grid bounds 
     
    229229 
    230230#endif 
    231  
     231       
    232232   END SUBROUTINE iom_init 
    233233 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8644 r8661  
    6565      !!---------------------------------------------------------------------- 
    6666      ! 
    67  
    6867      IF( kt == nit000 ) THEN   ! default definitions 
    6968         lrst_oce = .FALSE.    
     
    8584      ! we open and define the ocean restart file one time step before writing the data (-> at nitrst - 1) 
    8685      ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1 
    87       ! NO, because the data is written 2 times on nitrst - 1 and nitrst 
    8886      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    8987         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
     
    126124         ENDIF 
    127125      ENDIF 
    128  
    129126      ! 
    130127   END SUBROUTINE rst_opn 
     
    288285      ! 
    289286   END SUBROUTINE rst_read 
     287 
    290288   !!===================================================================== 
    291289END MODULE restart 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r8644 r8661  
    4545   PUBLIC   tra_adv        ! routine called by step module 
    4646   PUBLIC   tra_adv_init   ! routine called by opa module 
     47 
    4748   !                            !!* Namelist namtra_adv * 
    4849   LOGICAL ::   ln_traadv_cen    ! centered scheme flag 
Note: See TracChangeset for help on using the changeset viewer.