Changes in src/readcommand.f90 [20963b1:01e6052] in flexpart.git


Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/readcommand.f90

    r20963b1 r01e6052  
    332332     case (3)  ! 3 .. wet deposition in outputfield
    333333        ind_rel = 3
    334         if (lroot) then
    335           write(*,*) ' #### FLEXPART WET DEPOSITION BACKWARD MODE    #### '
    336           write(*,*) ' #### Releaseheight is forced to 0 - 20km      #### '
    337           write(*,*) ' #### Release is performed above ground lev    #### '
    338         end if
     334         write(*,*) ' #### FLEXPART WET DEPOSITION BACKWARD MODE    #### '
     335         write(*,*) ' #### Releaseheight is forced to 0 - 20km      #### '
     336         write(*,*) ' #### Release is performed above ground lev    #### '
    339337         WETBKDEP=.true.
    340338         allocate(xscav_frac1(maxpart,maxspec))
    341339     case (4)  ! 4 .. dry deposition in outputfield
    342340         ind_rel = 4
    343          if (lroot) then
    344            write(*,*) ' #### FLEXPART DRY DEPOSITION BACKWARD MODE    #### '
    345            write(*,*) ' #### Releaseheight is forced to 0 - 2*href    #### '
    346            write(*,*) ' #### Release is performed above ground lev    #### '
    347          end if
     341         write(*,*) ' #### FLEXPART DRY DEPOSITION BACKWARD MODE    #### '
     342         write(*,*) ' #### Releaseheight is forced to 0 - 2*href    #### '
     343         write(*,*) ' #### Release is performed above ground lev    #### '
    348344         DRYBKDEP=.true.
    349345         allocate(xscav_frac1(maxpart,maxspec))
     
    396392  endif
    397393
    398 ! Check for netcdf output switch
    399 !*******************************
     394!  check for netcdf output switch (use for non-namelist input only!)
    400395  if (iout.ge.8) then
    401396     lnetcdfout = 1
    402397     iout = iout - 8
    403 #ifndef USE_NCF
    404      write(*,*) 'ERROR: netcdf output not activated during compile time but used in COMMAND file!'
    405      write(*,*) 'Please recompile with netcdf library (`make [...] ncf=yes`) or use standard output format.'
    406      stop
    407 #endif
     398! #ifndef NETCDF_OUTPUT
     399!      print*,'ERROR: netcdf output not activated during compile time but used in COMMAND file!'
     400!      print*,'Please recompile with netcdf library or use standard output format.'
     401!      stop
     402! #endif
    408403  endif
    409404
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG