GHS Port Reference Center
Information for maritime designers, engineers and builders
Maintained by Creative Systems, Inc., Creators of GHS
Click here for information about GHS and other fine marine software.
Go to Main page

Demonstrates flooding with solid cargo remaining in hold. Separate tanks created for flooding at each cargo level.
    proj carghold
    `demonstrates flooding with solid cargo remaining in hold
    `separate tanks created for flooding at each cargo level
    
    read fv
    
    enter pm
    
    macro flood
     create %2.c
     ends -99,99
     fit hold%1.c
     deduct CARGO
     ends -99,99
     top %3
     fit hold%1.c
     //
    /
    .flood 1, FLOOD1A, 7.0 `create tank for flooding HOLD1.C with cargo 8.0 ABL
    .flood 1, FLOOD1B, 10.0
    
    write fvcargo.gf
    quit pm
    
    report
    
    `for convenience, define variables to represent geometry
    variable (st) hold1="HOLD1.C"
    variable (st) hold1FldA="FLOOD1A.C", hold1FldB="FLOOD1B.C"
    variable hold1LdA=7.0, hold1LdB=10.0
    
    `light ship:
    draft 6
    vcg 7
    solve weight, lcg
    
    macro loadfld `%1: hold variable name; %2: permeability;
                  `%3: contents name; %4: spgr; %5: cargo permeability; %6: load level letter
     heel 0
     trim 0
     tank {%1}
     perm %2 /quiet
     content "%3", %4
     ref 0,0,0
     load height:-{%1Ld%6} `load cargo
     type frozen
     tank {%1Fld%6}
     perm %2 /quiet
     variable t
     set t=1.0 minus %5 times %2
     component {%1Fld%6}\CARGO /perm:{t}
     type flood `flood, keeping cargo load
    /
    
    .loadfld hold1, 0.95, "ORE No1", 2.5, 0.30, A `Load level "A"
    
    macro status
     solve
     status /noref
     display (*) status profile
    /
    .status
    
    type (*) intact
    page
    .loadfld hold1, 0.95, "ORE No1", 2.5, 0.30, B `Load level "B"
    
    .status
    
    print preview
    report off
    end
    

Add a free link to your site
Copyright © , Creative Systems, Inc.